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ABSTRACT 


This thesis corrects the discrepancies between the input 
Translator and the Z-80 Realization Volume of the Computer 
System Design Environment (CSDE). It also demonstrated, for 
the first time, complete processing of a problem through 
CSDE. CSDE is a computer-aided design system for real time 
controllers. The Translator takes as input, a Computer 
System Design Language (CSDL) problem and generates a 
primitive list. Each primitive is matched to identically 
nared primitive realizations in the Realization Volume. The 
final outputs are hardware and software listings to 


implement the initial design. 
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I. INTRODUCTION 


In the field of computer systems development, the 
current techniques are coming under increased scrutiny 
because of intolerably high costs. Hardware and software 
costs make up the two component parts of computer systems 
development costs. One source projects software to 
comprise approximately 90 percent of total system costs by 
1985 (Ref. 1: p. 7). This trend applies equally to large 
automated data processing systems and to special purpose 
microprocessor based systems, also called embedded systems. 
Total software costs for embedded computer systems, alone, 
in the Department of Defense(DOD) are projected to exceed 
32 billion dollars by 1990 (Ref. 1: p. 8) with 40 to 75 
percent of this total going to software maintenance. Sirce 
embedded computer system expenditures comprise roughly 30 
percent (Ref. 2: p. 45] of all DOD software spending, this 
Clearly illustrates that ways must be found to reduce these 
costs. 

Current software/systenms development methodologies 
generally embody a life-cycle approach with various phases 
such as requirements analysis,design, coding, implementation 
and testing. This process is expensive, time consuming and 
flawed mainly because the hardware choices are made early 


in the process to insure hardware availability upon 


commencement of system testing. Consequently, misjudgments 
concerning hardware and software integration and the 
inability to completely satisfy the original requirements 
specification must either be ’lived with’ at the end of the 
project or corrected at great expense. 

Automated design tools of various types seem to hold the 
greatest promise in terms of increasing productivity of 
systems designers and programmers. They range in complexity 
from single function tools such as compilers, interpreters 
and editors to fourth generation languages, applications 
generators and complete software systems generators [Ref. 3: 
p. 631]. The key point of these latter types is that they 
greatly reduce the amount of labor required to finish a 
system design once the requirements specification has been 
completed. Although these tools may be primarily thought of 
as applying to large automated data processing projects, the 
principles also apply to embedded computer systems. 
Thus, similar tools exist and are being developed to aid 
designers of embedded systems, examples of which are real- 
time controllers and computers found in weapons systems 
guidance packages. 

One approach to computer-aided design tools for software 
and systems design is rapid prototyping. Rather than going 
through the traditional phases of the design process and 
hoping that the single final product is on time, on budget, 


and satisfies the requirements specification, rapid 


prototyping allows preliminary designs to be produced 
relatively cheaply and quickly. Changes to a first 
prototype can be easily incorporated into a second and the 
process continues until the desired results are achieved. 
The important point to be remembered is that the first step 
in any design, the requirements specification, will still 
require thorough research by the designer regardless of what 
design tools are employed. Rapid prototyping enccurages the 
consideration of software and hardware simultaneously 
throughout the development cycle and should result in the 
optimum design of a microcomputer based product at the 
lowest cost (Ref. 3: p. 76]. 

A computer-aided design tool for rapid prototyping of 
microprocessor based real-time controllers has been in 
development at the Naval Postgraduate School since 1982. 
The Computer Systems Design Environment (CSDE) was 
originally implemented by Alan A. Rosa (Ref. 4] in 1978 
based on initial research by M.N. Matelan (Ref. 351. CSDE 
has been the subject of several thesis efforts at NPGS, each 
examining a different module of the system. Currently, all 
components of the system have been completed, but certain 
conflicts between some of them required resolution before a 
successful demonstration of CSDE could be accomplished. The 
subject of this thesis was to identify and resolve the 


procedural conflicts that existed between certain 


LO 


modules of the CSDE system and to complete a successful 
demonstration. 

Concurrent to this research, two projects related to 
CSDE were also completed. Mr. Greg Lukas was hired to 
perform extensive software maintenance on the CSDE program 
to make it more user friendly and run more efficiently. 
LCDR Jim Poole worked on a project to streamline the 
physical process of running a design problem through CSDE. 

Poole’s research attacked a problem, documented by 
Smith (Ref. 6) and Riley (Ref. 9), in which numerous steps 
were required to work within the CSDE environment. The 
steps involved the separate uses of the VAX 11/780 
minicomputer, ALTOS Z-80 microcomputer, the Pro-Log 
microcomputer, and data transfer via modem. Poole 
constructed a single Zenith Z-100 microcomputer workstation 
from which all CSDE operations could be conducted. This 


makes CSDE much more convenient for the user. [Ref. 12) 
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II. BACKGROUND 


A. SYSTEM DESIGN 

To better understand what the procedural conflicts were 
and where they specifically existed within CSDE, a review of 
the system is essential. Refer to Figure 1 (Ref. 6: p. 20] 


for a simplified block diagram. 
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Figure 1 Current Roas Controller Design System 





The basic concept of CSDE is that a designer be able to 
describe a controller application functionally in a high 
order language, input this description into the system and 
obtain software and he dware listings that describe a 


prototype implementatio:. of the desired application. 


p 
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Currently, three common microprocessors, the Zilog 2Z-80O, 
Intel 8080 and Intel 8086, are available for hardware 
implementation depending on which microprocessor best 
satisfies the design requirements as determined by CSDE. 

The following discussion relates to the various blocks 
in Figure 1. First, the problem statement or functional 
description of the controller is written in the Computer 
System Design Language (CSDL). The syntax used by CSDL was 
originally defined by Matelan and is summarized by Ross 
(Ref. 34: pp. 10-12]. <A dedicated language manual for CSDL 
has not yet been developed. The CSDL problem statement 
includes such things as the variables to be used, functions 
to be executed and contingency/task pairs. A contingency/ 
task pair is simply a statement that describes which 
function or task will be executed in response to a 
particular condition or contingency. The problem statement 
is then input to the Translator which is equivalent to 
inputting a Pascal source program into a Pascal compiler. 

The Translator is a compiler which reads the CSDL 
program and generates four output files. Two of these four 
files are required by the CSDE system and are shown in 
Figure 1. The Primitive List is output ina file named 
^PRIMFILE.DAT^ and contains a list of primitives which 
describe the input problem. A primitive is basically a 
macro-instruction which is later translated by CSDE into 


assembly language instructions for the chosen 
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microprocessor. An example of a primitive is ’s.japf’ which 
causes a jump to a location if a variable is false. 

The Timing File, also called the Application Timing 
Table, is output ina file named ’IADEFL.DAT’and contains 
attributes of the contingency/task pairs such as maximum 
allowed time duration of each task and contingency and the 
relative priority of each pair. This information is stored 
in a table format and is used by the Timing Analyzer to 
produce a monitor program for the selected microprocessor. 
The monitor program (similar to a simplified operating 
system) insures that all contingency/task pairs are executed 
within the required time constraints as stated in the 
original CSDL problem. 

The third and fourth output files from the Translator 
are named ’SYMFILE.DAT’ and ’TRANSLATE.DAT’. ^ SYMFILE.DAT"' 
contains the Symbol Table, also called the Environment 
Table. The Symbol Table isa listing of attributes of 
variables and constants such as type, precision, and value. 
The Symbol Table is actually a subset of the Primitive List 
(’PRIMFILE.DAT’). It’s use by the CSDE program is optional. 
If SYMFILE.DAT is available, the Functional Mapper will read 
the Symbol Table before reading the entire Primitive List 
and the CSDE program will execute faster. “TRANSLATE. DAT’ 
is à text file for user convenience and is not used by CSDE. 
Carson used it as an aid in debugging during the development 


of the Translator. Currently, diagnostics which trace 
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errors in Translator input, will deposit error messages in 
this file (Ref. 8: p. 28]. 

The key aspect of CSDE is how it picks the particular 
microprocessor to be used and how it generates the assembly 
code listing to make the system work according to the 
requirements of the initial problem statement. The 
primitives generated by the Translator are really generic in 
nature. To convert them to assembly code, each primitive is 
matched to an identically named primitive in the Realization 
Volume that applies to the specific microprocessor that has 
been selected to implement the problenm. For example, the 
Realization Volume for the Zilog 2-80 contains a list of 
primitives and the 2-80 assembly code sequence that 
implements each primitive. Thus, the Functional Mapper 
would take the primitive, ’s.jmnupf’, which had been produced 
by the Translator and match it to ’s.jmpf’ in the 2-80 
Realization Volume. The primitive, ’s.jmpf’, is implemented 
or realized with three 2-80 assembly language statements. 
This matching process is called functional mapping because 
the Translator primitive is mapped into the 2-80 Realization 
Volume. Details relating to variables, precision, and 
timing are addressed by Ross [Ref. 4: pp.79-851. 

The Library of Realization Volumes (Figure 1) currently 
contains three volumes based on three microprocessors. An 
Intel 8080 Volume was developed by Ross during his original 


research and an Intel 8086 volume was added by A. J. Cetel 


(Ref. 7). The Z-80 volume, added by Smith [Ref. 6], was 
chosen for use during this thesis research because the 
prototype computer used for demonstration is currently 
configured for Z-80 operation. 

Device Description and Library Update (Figure 1) refer 
to the process of adding new Realization Volumes in the 
future as well as updating currently existing volumes. This 
process is extremely complex because a Realization Volume 
not only i :ludes software primitives and their assembly 
language translations, but also contains hardware primitives 
which describe the chips or aulti-chip circuit boards 
required to implement the software primitives. In the 2-80 
Realization Volume, all hardware primitives refer to circuit 
boards rather than individual chips because Smith designed 
his Volume for the Pro-Log computer. The Pro-Log can be 
reconfigured easily by installing different boards as 
required (Ref. 13]. An example of a Z-80 hardware primitive 
is ’h.atod’ which calls for an 8 bit analog to digital 
conversion board. The actual translation of  'h.atod"* 
&pecifies items like which circuit board to use and which 
jumper pins should be connected or disconnected. 

The hardware listing produced by CSDE for a given design 
is the indirect result of the software primitives generated 
by the Translator. As Translator-produced software 
primitives are successfully mapped to software primitives in 


a Realization Volume, hardware is also specified. 
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Translations of software primitives in the Realization 
Volume contain references to hardware primitives, also 
contained in the same Realization Volume. For example, the 
translation for a software primitive like ’s.clockon25’ 
(generate a 25 millisecond clock) contains the statement, 
“include h.clock’. ’h.clock’ is the 2-80 hardware primitive 
which details the connections for the counter-timer chip on 
the CPU circuit board to produce a 25 millisecond clock. 
Modifications or additions to software primitives in a 
Realization Volume must also be accompanied by appropriate 
changes to hardware primitives. This insures that a 
realizable controller design, in terms of software and 


hardware, can still be produced by CSDE. 


B. FOCUS OF THESIS 

The Translator module of the CSDE system was not 
developed by Ross during his initial research. During 
subsequent thesis research at NPGS the Translator module was 
written by T. H. Carson (Ref. 8]. Concurrent to Carson's 
work, the 2-80 Realization Volume was developed by Smith 
(Ref. 6). A successful demonstration of the complete CSDE, 
from input to operation, is the subject of this thesis. 
Previous discrepancies between these two modules prevented 
such a demonstration. 

The discrepancies involved differences between the 


primitives that were produced by the Translator and 
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primitives that were available for use in the Z-80 
Realization Volume. For example, the Translator generates 
a primitive called ’s.sensecond’ which relates to sensing a 
condition or testing for a certain flag. There was no 
^s.sensecond^ primitive in the 2-80 Realization Volume. 
This did not mean that the 2-80 Volume lacked primitives 
that could implement the function of ’s.sensecond’. Rather, 
the problem may only have existed in the names used to label 
the same macro-instruction. This problem of discrepancies 
between primitives generated by the Translator and those 
available in the 2-80 Volume caused CSDE to abort an 
attempted controller implementation with a 2-80 
microprocessor when such a discrepancy was encountered. 

To correct the discrepancies with primitives, all 
primitives available from the Translator were compared to 
those present in the 2-80 Realization Volume. For Transla- 
tor primitives like ’s.sensecond’, which had no matching Z- 
80 primitives, a solid understanding of the function of the 
primitive was gained. Then the Z-80 Volume was examined to 
see if the function in question was labeled with a different 
name or implemented in a different manner. Corrective 
actions consisted of modifying old primitives and adding new 
primitives to the 2-80 Realization Volume so that all 
primitives produced by the Translator can now be realized 


except for ’s.in/outport’. 
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Once the discrepancies with primitives were corrected, 
sample demonstration problems were run through the entire 
process to test each new primitive and those old Smaith 
primitives retained in the revised 2-80 Realization Volume. 
The demonstration problems were simple and only proved that 
each primitive could be processed by the CSDE system based 
on a single set of data. This brings to light the general 
problem of systems testing within the computer industry. 
Just because one problem was successfully demonstrated in 
CSDE does not mean other errors do not exist. However, 
exhaustive testing was not possible during the scope of this 


research just as it ie rarely possible in industry. 
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III. METHODOLOGY 


The task of identification and correction of 
discrepancies between output from Carson's Translator and 
primitives available in Smith's Z-80 Realization Volume is a 
difficult software maintenance project. The importance of 
well documented code and the desirability of a face to face 
turnover between past and current researchers was made pain- 
fully clear as work progressed. The primary sources of 
information regarding CSDE were more than adequate with the 
availability of Matelan’s reports, Ross’s thesis, and LtCol 
Ross, M himself. Information regarding Carson's Translator 
consisted of his thesis, a loose sheet summarizing 
Translator produced primitives (Appendix A), and a CSDL test 
program (Appendix B) designed to produce a primitive list 
(Appendix C) containing all primitives available from the 
Translator. These last two items proved invaluable in 
helping to determine the functional meanings of the 
Translator produced primitives. Information regarding 
Smith’s 2-80 Realization Volume consisted of his well docu- 
mented thesia and a simple but important demonstration 
problem written and discussed by Riley (Ref. 9: Appendix 
po 

Initially, a comparison was made between software 


primitives in the 2-80 Realization Volume and those 


ra 
Cr 


available from the Translator for one to one correspondence. 
The net result was that 15 of 39 possible primitives 
available from the translator had no matching primitive in 
the 2-80 Realization Volume. Thus, the first task was to 
write new primitives for the Z-8O Realization Volume to 
match the outstanding 15 from the Translator. 

Smith wrote 68 software primitives for his Z-80 
Realization Volume. It would seem to be a fairly reasonable 
task to write 15 more. Some were relatively easy while a 


few were not constructed for reasons discussed later. 


A. DETERMINING MEANINGS OF NEW PRIMITIVES 

The general approach to writing a new 2-80 primitive isa 
to first examine the part of the CSDL language that the 
primitive represents and to understand what it means. Since 
no language manual exits for CSDL, one must examine the 
actual ayntactic structure that corresponds to the 
primitive. Carson made this correspondence through the use 
of production nuabers. Each CSDL primitive listed in 
Appendix A has a production number which corresponds to the 
production nuaber of its syntax structure. The CSDL syntax 
structures are displayed in Backus-Naur forma which is a 
standard representation of the syntax structures of a 
computer language (Ref. 10: p. 16). Originally conceived by 
Matelan, CSDL was refined by Carson when he developed his 


Translator and is displayed by production number in his 


thesis (Ref. 8: pp. 47-54). The syntax structure for a 
given primitive serves as the basis for development of a new 
primitive realization. Newly developed primitives are 
discussed individually in subsection C of this chapter and 
the CSDL syntax structures that apply are listed as each one 
ia discussed. 

In most cases, the Backus-Naur syntax structures were 
insufficient to determine the meanings of new primitives. 
One also had to satudy the applicable portion of  Caraon'a 
CSDL test program and look at the corresponding set of 
primitives. In this manner one could see the context in 
which the primitive was used to better determine its 
meaning. For example, to determine the meaning of 
^B.fixedwait^' first look at ita sayntax structure in figure 


2. Note that a word not enclosed in brackets is called a 


«WAIT» "re WAIT «PERIOD? 
/ WAIT «EXPRESSION?» : «PERIOD»? 
«PERIOD» ::-» «*NUMBER* «TIME MEASURE» 


«TIME MEASURE» rie H/ M / S / MS / US / NS 


Figure 2 Syntax Structure Corresponding to ’s.fixedwait’ 


terminal and a word that is enclosed in  bracketa, < >, is 
called a nonterminal. Terminals appear in a CSDL problem as 
is, while nonterminalas are located elsewhere in the Backus- 


Naur description of CSDL until they ultimately are defined 


ee 


as terminals. In this case <PERIOD> can ultimately be a 
number and measure of time ranging fron hours to 
nanoseconds. The syntax for 's.fixedwait^ is relatively 
straight forward but the format for construction of a 
prinitive has atill not been nade clear. 

The next step is to look at the primitive list generated 
by the Translator from the CSDL test program to find 
^g.fixedwait'. A gegment of the primitive liet containing 


^&.fixedwait^ is shown in Figure 3. This primitive list was 


P 33t.generated for: KBINPMAIN ot oe 
P 34s.proc (KBINPMAIN:2) 
P 358.assign (MENU, 6C02:8,8) 
P 36s.isauevent (MENU:8) 
P 37s.senesecond (KEYCHAR: 8) 
P 388.eq (QTOL1,KEYCHAR,QCO1:8,8,8) 
P 39s.japf (@TO1 ,602:8) 
P dOs.assign (MINTAC,QCO1:8,8) 
P 41s.1loc (902:) 
---» P d2s.fixedwait (10) <--- 
P 43e8.exitproc  (KBINPMAIN:) sua" oe 


Figure 3 Primitive List Segment Containing ’s.fixedwait’ 


generated for TASK KBINPMAIN in the procedures section of 
the CSDL test program, shown in Figure 4. By looking back 
and forth between the these two figures one can understand 
each CSDL construct and its matching primitive. In the case 
of ’s.fixedwait’, “WAIT 10MS’ results in the primitive 
^S.fixedwait (105^ and means that when the ^WAIT* 
instruction is encountered no other tasks are to be executed 


Cr contingencies checked until the specified time has 
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elapsed. This definition of ’s.fixedwait’ was confirmed by 
LtCol Rosas prior to construction of the Z-80 primitive. He 
TASK KBINPMAIN; 
MENU:z0O: ISSUE (MENU); 
SENSE (KEYCHAR); 
IF KEYCHAR=1 THEN MINTAC :=1; END IF; 
E WAIT 10MS; e 
END KBINPMAIN; 
Figure 4 


CSDL Problem Segment Corresponding to Primitives in Fig 3 


was consulted prior to construction of all other primitives 
in question because of his familiarity with Matelan’s 
concepts of the CSDL language. 

A final source of information to be checked prior to 
actual 2-80 primitive construction is one or both of the 
other two currently existing realization volumes. For 
example, Ross wrote an ’s.fixedwait’ primitive for his Intel 
8080 Realization Volume [Ref. 4: p. B-4]. This provided an 
excellent model from which to work with good examples of the 
proper placement of CSDE statements as well as the assembly 
language statements that would cause the controller to 


execute the function of this primitive. 


B. COMPUTER SYSTEM DESIGN LANGUAGE (CSDL) PHILOSOPHY 

Before discussing actual primitive construction an 
important question needs to be answered. Why only construct 
primitives in the Z-80 Realization Volume to match existing 


primitives available from the Translator instead of changing 
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the Translator to produce primitives to match the ones 
originally available in the 2-80 Realization Volume? 

The philosophy of CSDL is that the designer should be 
able to specify the functional design of a controller 
totally independent from the knowledge of any specific 
hardware that might be used to build it. The structures 
available in CSDL are generic in nature and allow the de- 
scription of arithretic, logical, and input/output 
operations that could be applied to any computer-based 
controller. Thus, the primitives that are available from 
the Translator are a direct reflection of the CSDL language 
as originally defined by Matelan. To change the Translator 
so it would produce a primitive such as ’s.atod’ would first 
require a change to CSDL. A syntax structure would have to 
be added such that a designer could specify an analog to 
digital signal conversion during an input/output operation. 
Why did Smith include an ’s.atod’ primitive in the 2-80 
Realization Volume? 

Smith included many primitives whose functions are not 
supported by CSDL. Some, like ’s.atod’, were written to 
provide the capability to use the hardware that was 
available to him. In this case, one of the boards currently 
available is a Pro-Log compatible analog to digital 
conversion board, a Mostek mdx-a/d8 board. Another is 
^s.clockcons'/, written to enable use of the 3-channel clock 


that is co-mounted with the cpu on the Z-80A cpu board. As 


co 


it stands now, an analog to digital function can not be 
included in a controller designed within the scope of  CSDE 
and would have to be added externally once the CSDE 
controller design was realized. 

In addition to hardware specific primitives, Smith also 
included specialty primitives such as ’s.consfp’, ’s.varfp’, 
and ’s.fptoieee” to handle internal data represented in 
floating point notation. Here too, CSDL does not allow the 
designer to oe this specific. 

The net result is that the modified 2-80 Realization 
Volume produced by this thesis research excludes many of 
Smith’s primitives. If the CSDL language is expanded in the 
future some of these deleted primitives might then be 
included. 

The final reason for not making any changes to the 
Translator is the lack of expertise of this researcher in 
the area of compiler design and construction. This also 
makes it impossible to correct a few formatting errors that 
occur in the Translator’s output files. These formatting 
errors cause the CSDE program not to accept a logically 
correct CSDL problem straight from the Translator. The 
specific errors discovered are discussed in Chapter 4 and 


&ummarized in Appendix G. 
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C. PRIMITIVE CONSTRUCTION 

Having determined the meaning of the new primitive to be 
constructed, the first step in construction was to write the 
2-80 assembly language routine that would accomplish the 
desired function. The routine was then tested independently 
to eliminate logical and syntax errors prior to inclusion in 
the rest of the primitive body. Although the routine could 
be tested separately on any CP/M 2-80 microcomputer, it was 
easily teated right on the Pro-Log utilizing the Zenith Z- 
100 workstation set up specifically for CSDE research. 
This workstation consists of the Z-100 connected to the Pro- 
log and connected to the VAX 11/780 on which the Translator 
and the CSDE program both reside (Ref. 12]. 

To test a routine, it was first written on the  Z-100 
using an editor or word processor like Wordstar in non- 
document mode. It was then assembled and linked using the 
procedures set forth by LCDR Jim Poole, developer of the 
CSDE work station [{Ref. 12]. The starting address specified 
at time of linkage must be 4000h since this is where user 
addressable RAM starts in the Pro-Log. Once the routine was 
linked its resultant hex file was downloaded to the Pro-Log 
using the AMDS program resident on the Z-100 and on an EPROM 
starting at 90000h in the Pro-Log. Detailed procedures are 
contained in Poole'/s thesis. Having downloaded the routine 
into the Pro-Log, it was run by pressing the reset button on 


the Pro-Log then typing G4000 on the ADM-3 monitor which is 


E 


also connected to the Pro-Log. Results were checked by 
inspecting the contents of appropriate memory locations, 
again using the facilities of the AMDS monitor in the Pro- 
Log. This same procedure was used to test programs 
generated by CSDE except that instead of creating the 
assembly routine on the 2-100, the assembly program output 
from CSDE was downloaded from the VAX to the 2-100. 

In the case of ’s.fixedwait’, for example, the assembly 
code consists of two down counter loops, one nested inside 
the other, that delays the cpu from doing anything else as 
its executing the loops. For demonstration purposes, it was 
linked to a short routine to display some letters on the 
Pro-Log once the software delay had been completed. The 
delay was written to handle time in milliseconds vice 
microseconds so that the user could see the delay by timing 
the interval with a watch from the time the routine was 
started until the letters actually appeared on the Pro-Log 
display. The reference for 2-80 assembly language was Zaks’ 
Programming the 2-80 (Rer, 14] and Che reference for writing 
the letter display routine was the users manual for the Pro- 
Log 7303 Keyboard/Display Card (Ref. 15: p.3-5]. 

Once the assembly language routine was written and 
tested the rest of the primitive was constructed. There are 
very strict formatting requirements for the construction of 
a primitive. Detailed instructions are contained in Ross'/a 


thesis (Ref. 4: pp. 79-85.) and particular attention must be 


paid to the coluan dependencies and format for the arguments 
contained in the primitive title line. The best way to 
understand primitive construction format is to study 
previously written primitives by Ross (Ref. 4: Appendix B) 
and Smith (Ref. 6: Appendix Cl]. 

When the primitive was finished it was added to the Z-80 
Realization Volume. The Volume is normally contained in a 
file called RELIZE.MAC although the CSDE program allows the 
designer to name the required files anyway he chooses. Its 
format is strict in that the first portion of the Volume 
must be an index of the primitive title lines in 
alphabetical order. The last 4 numbers following the second 
colon of each title line specify the first occurrence of a 
CALC line, the first occurrence of an ATTR line and the 
beginning and ending line numbers locating the primitive 
within the Volume. To make the addition or deletion of 
primitives to the Volume easier, a program is available on 
the VAX called FORMAT.EXE. It takes as input just the pria- 
itives, stripped of line numbers and with no index. The 
primitives must start in column 6 and the last 4 numbers 
specified in the primitive title lines can be delineated 
Simply as spaces or asterisks such as in ^B8.fixedwait 
(time:0,1275:15,-5,18, , ,"""","""")^. If certain values in 
a title line are to be left intentionally blank such asin 
^h.cardcage (>? , , ,O,O0,""-"*",9"""*")', the blanks must be 


present before input to FORMAT or else FORMAT will inject an 
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extra comma into the primitive title line. The FORMAT 
program will create the index, add line numbers, and 
correctly fill in the last 4 numbers in each primitive 
title line. To use the formatter, type RUN FORMAT. It will 
ask for an input file name which is the file containing the 
unnumbered primitives. Then it will ask for an output file 
name which should usually be RELIZE.MAC. The resultant 
output file is ready for use by the CSDE progran. 

Because of the variation n complexity of the new 
primitives, it is important to discuss specific aspects 
that make each one unique. This should help future 
researchers if CSDL or the Translator is modified and more 
primitives need to be added to the Realization Volume. The 
following primitives were added to the (3-80 Realization 
Volume: s.inputport, s.sensecond, s.outputport, s.issuevent, 
&.fixedwait, s.call, s.equivalenc, s.implicate, s.forcons, 
&.whilestart, s.in, s.ni, s.stboolwait, s.boolwait, and 
s.waitleast. These new primitives along with relevant 
primitives from Smith’s original 2-80 Realization Volume can 
be found in the revised Z-80 Realization Volume in Appendix 
E. Each of the constructed primitives is discussed below. 
The primitive, ’s.in/outport’, was not constructed. The Z- 
80 Realization Volume now contains a realization of every 
primitive that can be invoked by the Translator except for 


“s3.in/outport’. 


1. Input/Output 


Five different primitives relating to input/output 
(I/O) are produced by the Translator which were not present 
in Smith’s 2-80 Realization Volume. They are 's.inputport', 
’a.s8ensecond’, ^&.outputport', ^s.issuevent', and 
^s.in/outport'. A discussion of Matelan’s philosophy 
towards I/O is appropriate before describing primitive 
details. 

Matelan stated that ’type’ refers to how data may be 
used rather than how it is stored. Traditionally, we think 
of types in the latter sense, such as a variable being 
specified as type integer or real. CSDL allows 3 
transmission types: INPUT ONLY, OUTPUT ONLY, and DUPLEX 
(input and output) (Ref. 10: p. 18]. To understand the 
diftferencea a real world example is presented. 

If a controller were to periodically sense the 
position of a valve, the valve would need to produce a 
proportional analog output signal which would then be 
converted to a digital signal by an analog to digital 
converter. This digital signal would be available via a 
specific line to a specific port which would be uniquely 
addressed by the cpu of the controller. This port would be 
for INPUT ONLY with data on the current valve position 
always available. 

A typical hardware I/O implementation for a 2Z-80 


microprocessor might involve using a parallel input/output 
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interface chip (PIO), which provides 2 or 3 ports. A port, 
here, refers to an 8-bit connection that may be used for 
input or output (Rer, 11: p. 162). A PIO chip is 
programmable to set the direction for which the ports will 
be used. To provide INPUT ONLY, the software must first 
select the port to which the position signal is sent and 
program the PIO so that the selected port is set up in the 
INPUT direction. Once the port is set up, information can 
be read from it as often as the programmer desires with a 
simple instruction such as the Z-80 "in a,(n)", where ’n’ is 
the port address and ^a^ is the accumulator. 

The primitive, ’s.inputport’, comes from the CSDL 
syntax, <INPUT SPEC»::2 INPUT:«TRANSMISSION BODY» END INPUT, 
and the primitive, ^B.sSensecond^, comes from the CSDL 
syntax, «DATA INPUT>::= SENSE (<NAME>). Using the valve 
example, source to and primitives generated by the 
Translator might appear as in Figure 5. The primitive, 


SOURCE 
(CSDL Problem Statement) 


OBJECT 
(Primitive List) 


ENVIRONMENT 
INPUT: VLVPOS,8, TTL 


s.inputport (VLVPOS,TTL:8) 


PROCEDURES 
FUNCTION VALVCHEK 
SENSE (VLVPOS) 


&.8ensecond (VLVPOS:8) 


Figure 5 CSDL Implementation of Input 
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^mg.inputport^, would be used to set up the desired port for 
input (i.e. send appropriate control code to the PIO) and 
^S.5ensecond^, would be used to actually get data from the 
desired port into the cpu. 

Similarly, the controller should be able to send a 
digital output signal via a digital to analog converter to 
the valve positioning motor. This would be an OUTPUT ONLY 
function. The primitive, 's.outputport/ comes from the CSDL 
syntax, «OUTPUT SPEC>::= OUTPUT:«TRANSMISSION BODY» END 
OUTPUT, and ’s.issuevent’ comes from «DATA OUTPUT»;:* ISSUE 
(«NAME»). The primitive,  *"s.outputport^, would be used to 
set up the desired port for output (i.e. send the appro- 
priate control code to the PIO) and ’s.issuevent’ would be 
used to actually send the digital valve positioning signal 
to the desired port for output. 

The implementation of data transmission type DUPLEX 
is more complex. Duplex means the capability of INPUT AND 
OUTPUT through a single port with no prior set up. 
Theoretically, this might imply using a PIO that did not 
require control codes to set up the direction of one of its 
ports prior to using that port. Data could be ’sensed’ fron 
or ’issued’ to a port defined as duplex without having to 
worry if the port was configured correctly. In the event 
that duplex was not implemented solely through the use of a 
non-programmable PIO, it might be achieved by including code 


within the ’s.issuevent’ and ’s.sensecond’ primitives 
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to change port <irection whenever an output or input 
was required. Under what conditions would a designer desire 
a DUPLEX transmission type? Perhaps there are hardware 
restrictions that limit the number of ports available to the 
controller and DUPLEX is the only way to satisfy all of the 
I/O requirements of the external device being controlled. 
The CSDL philosophy is that the designer is not concerned 
with hardware when he originates his design. Hardware is 
determined by the realization volume, whose software 
primitives are written for a fixed set of components 
specified by the hardware primitives. If a designer inputs 
one design into CSDE with too many INPUT ONLY or OUTPUT ONLY 
data transmission types, CSDE might declare the design not 
realizable for a given microprocessor type such as contained 
in the Z-80 Realization Volume. In the case of the Z-80 
Volume, hardware is specifically configured at the board 
level and I/O software primitives must incorporate the 
programming guidelines of the board nanufacturers. 
Alternately, if the designer resubmitted his design using 
more DUPLEX types in lieu of separate INPUT and OUTPUT 
types, the design might be realizable. 

There are no PIO devices installed in the hardware 
currently allowed by the 2-80 Realization Volume. If a PIO 
chip was installed, a DUPLEX data transmission type 
primitive could be added to the Z-80 Volume by constructing 


the ’s.in/outport’ primitive such that it emulates the 


DUPLEX function. One possible scheme might be that when a 
DUPLEX type is declared, it is automatically set up to a 
default mode of INPUT only. Data may be ’sensed’ from the 
referenced port with no change in port setup. If data ia 
‘issued’ to this port than a software mechanism must exist 
to reset the port for OUTPUT first and, upon completion of 
the data output, reset the port to its default configuration 
of INPUT ONLY. 

In the case of the Z-8O0 Realizaion Volume, a single 
data port on the Pro-Log keyboard/display card is available 
for input or output. A single control port is also 
available to control the mode of display of data once it has 
been output from the CPU to the keyboard/display card. Data 
sent to the control port controls the output display and not 
the data port. Thus, this single data port is DUPLEX in 
nature since no control codes are required to configure it 
for input or output. However, no DUPLEX function, i.e. an 
s.in/outport primitive, has been added to the Z-80 Volume. 
Because of the simple hardware available, it would merely 
duplicate the functions of the ^&.inputport'"' and 
^&.outputport/ prinmitives. More importantly, a flaw exista 
in the Translator which will not allow data to be ^"sensed" 
or ‘’issued’ through a variable that has been declared as 
DUPLEX. 

To demonstrate the concepts of I/O for this thesis, 


the I/O primitives have been constructed very simply. The 


hardware they use is the Pro-Log keyboard/display board 
which only has one data port addressed at dOh. The value of 
the digital signal available at the port can be determined 
by inspection of the 8 leds on the board, representing bits 
O through 7 read right to left. The ’s.outputport’ 
primitive creates an output variable used to hold the 
output value, clears the led display, and sends a control 
code to the board’s single control port, dih, to disable the 
alphanumeric display. The ’s.issuevent’ primitive outputs 
the contents of the output variable declared by 
^s.Ooutputport^ to the data port. The value can then be 
determined by inspection of the 8 leds. 

The primitive, ^s&.inputport'/, creates an input 
storage location. No other actions are required because of 
the very limited I/O facilities of the Pro-Log 
keyboard/display card. With only one data port available 
for input, no control codes are required. When more complex 
I/O hardware is available this primitive will require 
modification. The primitive, ’s.sensecond’, is slightly 
artificial in that a conversion routine was added to accom- 
modate the 2 rocker switches on the keyboard/display card. 
These switches directly control the contents of bits 6 and 7 
(assumes bits numbered O to 7) of the 8-bit data port when 
it is ’sensed’ for input. Thus by masking out all but the 
left most 2 bits, 4 possible values can be ‘’sensed’ for 


input as directly controlled by the position of the rocker 
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switches. Four possible input values were sufficient for 
the demonstration problems attempted. Exact details as to 
awitch positions can be found in the comment lines of the 
primitive in Appendix E. 

2. OS.fixedwait 

The primitive, “a.fixedwait’, has already been 
discussed in section III.A. There are a few additional 
points of interest. 

This primitive contains an attribute line in 
addition to comment and calc lines. Attribute lines are 
used when the length of time of execution of a primitive is 
directly related to one of its input values. In this case, 
the input value is the desired time delay in milliseconds 
and also controls the length of execution of the prinitive. 
Normally, the maximum execution time for a given primitive 
appears in the primitive title line as the second number 
after the second colon. The units are in clock cycles. A 
negative number is treated as a flag to indicate that the 
actual attribute needs to be calculated at code generation 
time. The flag is also the offset value, starting from the 
primitive title line, of the line number where the attribute 
calculation can be found. 

In the case of ’s.fixedwait’, the attribute line is 
“attr time =<time>*4000’ and means take the input value and 
multiply it by 4000, with the result being the real 


execution time for this primitive in terms of clock cycles. 
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The factor of 4000 comes from the fact that 1 millisecond 
equals 4000 clock cycles with a 4 Mhz clock. The 2Z-80A 
supplied on the Pro-Log cpu board uses a 4Mhz clock. 

There is a format error in the way the Translator 
produces this primitive. Specifically, there is a missing 
colon: the format should be ’s.fixedwait (10:)’ instead of 
’s.fixedwait (€10)”’. Normally the missing colon would cause 
a fatal error within the CSDE program but the program has 
been modified to accept ’s.fixedwait’ without the colon. 
Informative error messages still result to remind the 
designer that the Translator requires modification. 

3. 2.C 

The primitive, ^'s.call', comes from the syntax, 
<PERFORM TASK> ::= *ID*, and gives the designer the ability 
to execute one task from inside another task without first 
having to check the other task’s associated contingency. 
The Z-80 code to implement this primitive consists of a call 
instruction to a label that marks the desired task’s 
subroutine. Although logically correct, this primitive is 
not useful within CSDE because no mechanism exits to account 
for the extra run time that is incurred when a task is 
executed in this manner. If ’s.call’ is used, CSDE will not 
have an accurate execution time statistic for a given design 
and could falsely generate a realization of a problem that 


does not meet the designer'/s timing requirements. 


4. e valenc and S.implicat 

Both of these primitives perform logical comparisons 
between two expressions in the same manner as ’8.Or’ or 
^s.and'. The inputs to them are the boolean results of 2 
expressions, true (ff hex) or false (OO hex). The output is 
a boolean result according to the specified truth table 
(Ref. 16: p. 81]. Truth tables for both primitives can be 
found in Appendix E in the comment lines for each primitive. 
The CSDL syntax for 's.equivalenc' is ’<EXPRESSION> :::3 
«EXPRESSION» .- «EXP 25^ and for ’s.implicate’ is '«EXP 25 
$22 XEXP 2» => «EXP 3»5'. 

5. OS.íorgons 

This) primitive marks the top of a for-loop and was 
already included in Smith’s Realization Volume under the 
primitive name ’s.foratart’. Statements have been added to 
properly account for changes in execution time that arise 
depending on how many times a for-loop is executed. Also, 
the arrangement of arguments within the title line is 
slightly different from the format output from the 
Translator because of the rules by which primitive 
realizations must be constructed. The CSDL syntax is '«FOR 
HEAD» ::= FOR *ID* FROM «EXPRESSION? TO «EXPRESSION» : «MAX 
LOOP COUNT»'. 

To accurately keep track of total execution time 
during loop operations Ross incorporated the global 


variable, ’reps’, in the CSDE program. The value of 'reps' 
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is the factor by which the execution time of each primitive 
is multiplied prior to being accumulated by the timing 
analyzer. It is normally set equal to 1 but in the case of 
a loop it is set equal to the value of max loop count 
specified by the designer. Once the ’s.forend’ primitive is 
encountered, the value of ’reps’ is reset to the value it 
had upon entering the for-loop. Previous values of ’reps’ 
are saved and recovered through the use of a stack inside 
the CSDE program. This stack is only used for the global 
variable ’reps’ and manipula dwith the statements, “calc 
push reps’ or ’calc pop reps’. This atack arrangement 
allows the construction of nested loops. 

The format of the realization title line is 
slightly different for the primitive format generated by the 
Translator because of an error related to the positioning of 
the value for max loop count. Currently the Translator 
output appears as follows: 

8.forcons CCOUNT , @CO2, @CO4 , 603, G04:8,8,8,120). 
The criteria section of the title line (to the right of the 
colon) should contain only values corresponding to the 
variables in the argument section (to the left of the 
colon). In this case there are 3 variables and 2 labels in 
the argument section and as such there should only be 3 
values in the criteria section. The value, 120, is the 
specified max loop count and should be in the argument 


section instead of the criteria section in order to be 
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available within the primitive. Consequently, the primitive 
realization was constructed to accept the following format: 
s.forcons (COUNT ,@CO2 , @C04, 603 ,604,120:8,8,8). 
The max loop count value also appears in the ’s.forend’ 
primitive as generated by the Translator. It is not 
required for proper construction of a for-loop and is 
ignored. Manual editing of the prinitive list output file 
from the Translator is required whenever the for-loop 
prinitives appear. Otherwise a fatal error will result upon 
running the CSDE program. 
6. Sewhilestart 

This primitive is used in conjunction with the 
primitives, ’s.whilecon’ and ’s.whend’ to construct a while- 
do-loop. Its functions are to establish a label for the 
beginning of a while-do-loop and ranipulate the max loop 
count using the global variable, ’reps’. This is sinilar to 
the method used in ’s.forcons’. The CSDL syntax is ’<WHILE> 
;32 WHILE’. Again, there is a problem as to where the max 
loop count is placed. 

The CSDL syntax currently calls for max loop count 
to appear in the ‘’s.whilecon’ primitive and not in 
^s.whilestart'. This is wrong because the condition to be 
checked to determine if the while-do-loop should be 
continued appears as other primitives between ’s.whilestart’ 
and ’s.whilecon’. Thus, these primitives, as well as the 


primitives appearing between ’s.whilecon’ and ’s.whend’, are 
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executed for every repetition of the loop. For correct 
timing statistics the execution times for both the 
condition checking primitives before ’s.whilecon’ and the 
action primitives after ’s.whilecon’ be must multiplied by 
max loop count. This requires that the nax loop count value 
appear in ’s.whilestart’. The primitive realizations have 
been written accordingly. Editing of the primitive list 
output from the Translator is required whenever the while- 
do-loop primitives are generated. Examples of the changes 


required are shown in Figure 6. 


Sample Output Fron Translator (unedited) 


P 3is.whileatart(@03:) 


(condition checking primitives) 


P 33s.whilecon (6T01,@604:4) €--- °4’ is max loop count. 
` Precision of QTO1 is 
(action prinitives) missing. 
P 38s.whend (903,G9g04:) 


Required Format for Input to CSDE Program 
P 3Slsa.whilestart(@03,4:) <---Max loop count here. 
(condition checking primitives) 


P 33s.whilecon (@6T01,604:8) <---Precision of @TO1 
: added. 
(action primitives?) 


P 38s .whend (@03,804:) 


Figure 6 Changes Required For ’s.whilestart’ 
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7. Sein and S.ni 

These primitives are produced when a timed block is 
specified. A timed block is a nested set of actions within 
a task or function, with its own timing criteria. This 
timing criteria is in addition to any criteria specified for 
the parent task or function in the application timing table. 
An example can be found in Appendix B within the function 
^TPOLL'. The syntax for s.in is «XTIMED BLOCK HEAD? ::- IN 
«PERIOD» and for s.ni is «XTIMED BLOCK»::-» «TIMED BLOCK HEAD» 
DO «STMT GP» END IN. 

These primitives are in the same format as they 
Originally appeared in Ross’s 8080 Realization oe They 
were added to the Z-80 Volume for purposes of completeness 
only and cannot be used in their present foram. This is 
because the mechanism by which the CSDE program would 
implement a nested timing requirement is not functional. 
No effort was expended to correct this problem because it 
was reasoned that if a designer had an inclination to 
specify a timed block he could just as easily take the 
actions in question and put them in a separate task or 
function. 

8. S.Stboolwait and s.boolwait 

These primitives are generated when a boolean wait 
construct is specified. This construct would be specified 
by a designer when he wanted to check the results of an 


arithmetic expression for a fixed time period. The 
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expression is checked until either the result is true or the 
specified time has expired after which the rest of the task 
is executed. An example can be found in Appendix B in the 
task,  'MSGDSPLY'. The syntax for ’s.stboolwait’ is <WAIT 
HEAD?» ::= WAIT UNTIL and for ’s.boolwait’ is «WAIT UNTIL» 
:3= <WAIT_HEAD> <EXPRESSION> : <PERIOD>. 

The logic of the realization is fairly simple. The 
primitive, ’s.stboolwait’, sets the time to check the 
expression by calling another primitive, ’s.setime’. This 
is analogous to setting a timer, in this case the counter 
timer chip (ctc) on the Pro-log cpu board. Then it 
establishes a label for the top of a mini polling routine. 
The expression primitive would appear between *'s.stboolwait' 
and  ^s.boolwait'. Finally, ’s.boolwait’ completes the 
polling loop by first checking the result of the expression 
primitive. If the result is true the routine is exited. If 
the result is false, the current time is read from the ctc. 
If the time is expired the routine is exited. Otherwise a 
Jump is executed to the top of the loop. 

The primitive, ’s.setime’, is not generated by the 
Translator. It was written as a separate primitive to 
maintain the modularity of the Realization Volume and to 
allow testing of the CSDE ’call’ instruction in the 
primitive, ’8a.8tboolwait’. It sets up the ctc as a 


down counter which decrements at 1 ms intervals. Details of 
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available within the primitive. Consequently, the primitive 
realization was constructed to accept the following format: 
s.forcons (COUNT , 8CO2,6C04,9803,0094,120:8,8,8). 
The max loop count value also appears in the ‘’s.forend’ 
primitive as generated by the Translator. It is not 
required for proper construction of a for-loop and is 
ignored. Manual editing of the primitive list output file 
from the Translator is required whenever the for-loop 
primitives appear. Otherwise a fatal error will result upon 
running the CSDE progranm. 
6. Sewhilestart 

This primitive is used in conjunction with the 
primitives, 's.whilecon^ and ’s.whend’ to construct a while- 
do-loop. Its functions are to establish a label for the 
beginning of a while-do-loop and aanipulate the max loop 
count using the global variable, 'reps'. This ia similar to 
the method used in 's.forcons'. The CSDL syntax is ’<WHILE> 
7:2 WHILE’. Again, there is a problem as to where the max 
loop count is placed. 

The CSDL syntax currently calls for max loop count 
to appear in the ’s.whilecon’ primitive and not in 
^s.whilestart'. This is wrong because the condition to be 
checked to determine if the while-do-loop should be 
continued appears as other primitives between ’s.whilestart’ 
and ’s.whilecon’. Thus, these primitives, as well as the 


prinitives appearing between ’s.whilecon’ and ’s.whend’, are 
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Thus, there would be no reason to incorporate a polling 
routine, knowing the result could never change. The CSDL 
syntax and the Translator should be corrected to allow 
additional primitives within the boolean wait routine such 
as ’s.sensecond’. It would then be possible for the result 
of the final expression to change during the specified time 
period. The boolean wait realizations have been written 
accordingly. 
9. S.wajtleast 

This primitive generates a software delay that is 
computed by multiplying the integer result of an arithmetic 
expression by a specified time period. The integer result 
is passed to ’s.waitleast’ from primitives that appear above 
Bt. The specified time period appears in ’s.waitleast’. 
The syntax for it is «XWAIT»::- WAIT <EXPRESSION> : <PERIOD>. 
An example can be found in Appendix B in the task, MSGDSPLY. 

When code from this primitive is incorporated into a 
task the execution time of that task becomes variable based 
on internally computed results when the controller program 
is running. Since these changes in execution time occur 
completely external to CSDE, there is no way to achieve 
accurate timing statistics when the program is generated 
unless the designer can specify some maximum delay in the 
CSDL problem. Additionally, since the integer result passed 
to ‘’s.waitleast’ is passed via a variable and not an 


absolute number, the loop structure used in the 
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^s.waitleast^' realization required several additional 
arguments to be present inthe title line than those 
generated by the Translator. The differences are displayed 
in Figure 8 as well as proposed CSDL syntax changes. Note 
that editing the primitive list requires more than just 
changing the ‘’s.waitleast’ title line. An additional 


variable may need to be added with an ’s.var’ primitive to 


Current CSDL Syntax: 
“WAIT SABLE*1: SOOMS"' 
Proposed CSDL Syntax: 


"WAIT SABLE*1: S5O0O0MS: 1500MS" 


i || Max time 
integer result__: i_ period 
from this 
expression 


Sample Output Froma Translator (unedited) 
P 47a.waitleast (@T01,8:500) 


Required Formaat for Input to CSDE Program 
(with argument explanations) 


1 2 3 4 9 6 
P 47s.waitleast (@TO2,@TO1,@05,@06,500,1500:8,8) 


- variable to be used for loop counter 
- variable containing integer result 

- top label 

bottom label 

- tine period 

- max allowed time period 
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Figure 8 Changes Required for ’S.waitleast’ 
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implementation can be found in the comment lines for 
^Sg.s5etime' and 'h.clock'/ in Appendix E. 

The CSDL syntax currently calls for the time period 
to appear in 's.boolwait^ and not in ‘’s.stboolwait’. This 
is wrong because CSDE needs the time period at the beginning 
of the boolean wait construct to insure accurate timing 
statistics are kept. This is accomplished by use of an 
attribute line in ’s.stboolwait’ as is similarly done in the 
primitive,  's.fixedwait'. Editing of the primitive list 


output from the Translator is required as shown in Figure 7. 


Sample Output From the Translator  (unedited?) 


P 36s.stboolwait(@03: ) 
P 378.eq (@TO1,LIGHT,@C06:8,8,8) 
p 38s.boolwait  (QTO1,Q003,4904:8,1700) <-- 1700 is period 
in MS 
Required Format for Input to CSDE Program 
P 3628s.s5tboolwait(9QO3,1700:) <-- time period 
P 378.eq (@TO1,LIGHT, @C06:8,8,8) here 
P 38s.boolwait  (89TO1,903,904:8) 


Figure 7 Changes Required For Boolean Wait Primitives 


A logical error exits in CSDL relating to the 
expression primitives that may appear between ^s.stboolwait' 
and ’s.boolwait’. Currently, only one expression may appear 
which means that once the boolean wait routine is entered 
there is no way that the result of the expression could 


change while waiting for the specified period to expire. 
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7. Sin and Seni 

These primitives are produced when a timed block is 
specified. A timed block is a nested set of actions within 
a task or function, with its own timing criteria. This 
timing criteria is in addition to any criteria specified for 
the parent task or function in the application timing table. 
An example can be found in Appendix B within the function 
^TPOLL'. The syntax for a, in ie XTIMED BLOCK HEAD» ::- IN 
«PERIOD» and for s.ni is «TIMED BLOCK»;:- «TIMED, BLOCK HEAD» 
DO «STMT GP» END IN. 

These primitives are in the same format as they 
originally appeared in Ross’s 8080 Realization Volume. They 
were added to the Z-80 Volume for purposes of completeness 
only and cannot be used in their present form. This is 
because the mechanism by which the CSDE program» would 
implement a nested timing requirement is not functional. 
No effort was expended to correct this problem because it 
was reasoned that if a designer had an inclination to 
specify a timed block he could just as easily take the 
actions in question and put ther ina separate task or 
function. 

8. S.Stboolwait and s.boolwait 

These primitives are generated when a boolean wait 
construct is specified. This construct would be specified 
by a designer when he wanted to check the results of an 


arithmetic expression for a fixed time period. The 
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serve aa a counter for the loop structure produced by 
^g.waitleast'. Also, care must be taken when picking the 
values to be inserted in the label arguments so that they 
are different from label names used elsewhere in the 
primitive list. 
10. Changes to Smith's Primitives 

Three of the primitives retained from Smith’s 2Z-80 
Realization Volume were revised significantly. Many of the 
others required minor corrections, most regarding incorrect 
byte counts. In a few cases, comment lines were added to 
clarify certain points regarding the structure of a 
particular primitive. Generally, Smith was thorough and 
the logic of his 2-80 assembly code routines was flawless. 

The primitive, ’s.main’, appears in the second line 
of every primitive list generated by the Translator. The 
’sa.main’ realization contains the code that appears at the 
top of every software output from  CSDE. Smith included 
statements that would allow a designer to specify a debug 
mode. A controller program produced from CSDE in debug mode 
could be run and tested on a C/PM based microcomputer. 
These references to debug mode were eliminated since, with 
the use of the CSDE workstation, testing on the Pro-log is 
more effective. Another capability of 'sa.main' was retained 
to generate blocks of code within a controller program that 
are only executed once before the monitor loop is entered. 


Smith referred to this as hardware initializations. Although 
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not 


implemented in the revised Realization Volume, auch 


blocks could be realized by modifying existing primitive 


realizations with ’inel’ or ’call’ statements. These 


atatements could, in turn, reference other software 


primitives whose code would be executed only once upon 


Le Á LE — 


Sample Software 


Output from CSDE Comments 
-z80 i 
aseg '_ Code generated from the 
. |. primitive 's.main'"' 
Eo«-- 3p LL €-- _' This instruction appears in the 
e E a realization as ’jp @Gi<initlk>’ 
e where initially, initlk = O. 
Cother code) 
— This instruction would appear 
. i . t_in the realization as 
jp @@0 <-- ^p @@<arnd>’ where initially, 


---> QiO: nop arnd = O. 


(code here |. This block of code is executed 
executed once?) ||. once. When the monitor starts 
|. executing by calling contingency 
|. task pairs,this block will 
|. always be jumped. 


usc-- Jp Qil €«---- 
900: nop : 
Cother code) : The global variable, initlk, has 

e been incremented so initlk = 1. 
-»QGepvsr: nop 


e _ Monitor section. 
(monitor code) 


Jp Q9spvsr 


---> - Qil: jp @Gapver <-- This instruction comes from 
^g.end^ and marks end of blocks 
of code to be executed once. 


Figure 9 Realization of Blocks of 
Code to be Executed Once Only 
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inclusion in a controller program. This feature is 
available for use, utilizing the global variables ’initlk’ 
and ’arnd’. Figure 9 demonstrates how blocks of code to be 
executed once (for initializations) might be realized. 

The primitive, ’s.monitor’, also contained a means of 
generating code within a controller program that would only 
be executed once before entering the monitor section. This 
was different from the method use in ’s.main’ in that a 
boolean flag, ‘’@initial’, was checked to cause a jump to 
another segment of code that might be used for such things 
as initializing variables. This initializing block of code 
was realized from two primitives, ’s.initalcons’ and 
^s.initalend'. These primitives are not produced by the 
Translator and were discarded along with the statements in 
’s.monitor’, that referred to them. The method available in 
’s.main’ for initializations is simple and amore flexible. 
Initial values of variables are currently set at zero when a 
controller program is assembled by use of assembler 
statements such as 'defw O'. 

Finally, the primitive, ’h.clock’, was rewritten to 
correctly describe all jumper connections required on the 
cpu board to implement a i millisecond clock. The original 
version of ’h.clock’ listed only one of the six connections 


required to enable channel O to feed channel 1 of the ctc. 
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IV. TESTING AND DEMONSTRATION 


The objective during testing was to verify that every 
primitive in the revised Z-80 Realization Volume could be 
processed through CSDE to produce error free code that 
would run on the Pro-Log computer. This applied to newly 
constructed primitive realizations as well as those retained 
from Smith’ Z-80 Volume. All primitives were successfully 
tested at least once except for ’s.in’, ’s.ni’, and ’s.not’. 
The first two were discussed in section III.C.7. and the 
latter was not tested because the Translator would not 
generate it. Many unsuccessful attempts were made to 
discover the proper syntax for ’s.not’ since the Backus-Naur 
form specified by Carson failed to work. 

To minimize the potential for multiple errors within one 
test problem only one new primitive was tested at a time. 
This involved writing simple CSDL problems’ for each 
primitive usually with only two contingency task pairs. The 
testing was not exhaustive. For example, if a primitive 
like ’s.ge’ ‘checks condition for greater than or equal to) 
was tested, not all possible combinations of positive and 
negative numbers were submitted as input data. This was 
because of time constraints and the fact that Smith already 
tested the logic of his Z-80 code during development of the 


original Z-80 Realization Volume. 
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As discussed below in section IV.C., the CSDE program 
underwent extensive revision to improve efficiency and ease 
of use. An indirect benefit of primitive testing for this 
thesis was that the revised CSDE program was able to be 
debugged. While important to the overall CSDE project this 
sometimes caused great frustration when CSDE program errors 
slowed down the testing process. Primitive testing also 


validated the usefulness of the CSDE workstation. 


A. TESTING SEQUENCE AND EXAMPLE 

A detailed user’s manual for working within the  CSDE 
environment is contained in Poole’s thesis (Ref. 12]. It 
specifies the exact command sequences to use the CSDE 
program on the NPGS Computer Science VMS Vax 11/780. It 
also explains how to use the CSDE workstation to transfer 
files between the 2-100 and the VAX, assemble and link 2-80 
programs produced by CSDE, and download resultant hex files 
to the Pro-Log. The process is summarized as follows. 

Once a new primitive realization was written and added 
to the Realization Volume as discussed in Chapter 3, a short 
CSDL problem was written to exercise it. Appendix B shows 
the proper CSDL format to generate every primitive except 
^sB.not'. The file containing the CSDL problem was renamed 
DAT.DAT, as required for input to the Translator. The 
problem was then run through the Translator to generate the 


primitive list, application timing table, symbol table, and 
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Translator error file. These files were discussed in 
Chapter 2. It was important to view the Translator error 
file before inputting the problem to CSDE because this was 
the only way to know if the CSDL program contained any 
syntax errors. Any manual changes to the primitive list 
were made using the EDT editor available on the VAX. Next, 
the CSDE program, currently named CLIB, was run to produce a 
software liating, a hardware listing and a debug file. 
Different levels of debugging may be selected from» the 
initial CLIB menu. The software listing was then downloaded 
to the 2-100 microcomputer, part of the CSDE workstation. 
On the 2-100, it was assembled and linked to produce a hex 
file. The hex file was downloaded from the Z-100 to the 
Pro-Log where it was finally executed. 

As mentioned above, different levels of debugging may be 
selected when running the CSDE program. When level O is 
selected only the actual error message lines will appear in 
the debug file. When level 3 is selected an extensive 
chronological record of CSDE program execution is written to 
the debug file. In most cases it was easiest to select 
level O and if errors developed, rerun the problem with a 
more detailed debug level selected. Another point is that 
just because the CSDE program flags errors does not mean 
that an unsatisfactory realization has been produced. In 


some cases, such as with ’s.fixedwait’, only non fatal 


informative errors are generated. This was mentioned in 
section III.C.2. 

An actual test program and all related files are 
contained in Appendix F. This CSDL problem was written to 
test the primitives associated with a while-do loop. 
Referring to the problem, ’FUNCTION EACH1’ is a contingency 
which senses an input value, stores it in the variable, 
^ARG1/, and seta the boolean variable, ^EACH1^, equal to -1 
if ’ARG1’ is lesa than or equal to 2. The boolean variable 
is set equal to -1 because -1 decimal is represented by FF 
hexadecimal in twos complement form. A boolean true value 
is defined as FF hex. The net result is that if ’ARG1’ is 
less than or equal to 2 than the contingency is true. The 
“CONTINGENCY LIST’ specifies that if 'EACH1^ is true then 
“TASK ONLITA^ must be executed. Both the contingency and 
task must be completed within 1600 milliseconds including 
any other blocks of code that are executed during the 
remaining portion of the current monitor cycle. 

The while-do loop comprises the bulk of 'TASK ONLITA’. 
The net result of the while-do loop is that the values 1, 3, 
>, and 7 will be output at 250 ma intervals and can be 
viewed in binary form on the 8 leds of the Pro-log 
keyboard/display card. This display will only occur if the 
contingency is true, i.e. both keyboard/display card rocker 


switches are off or only the right switch is on. 
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The second contingency taak pair, ‘’EACHS’ and ’OFFLT’, 
causes a SOO as delay with all leds off for any of the four 
possible input values. See the discussion of ’s.sensecond’ 
in section  III.C.1. for more information on the four 
possible input values. 

Following the CSDL problem are the three Translator 
output listings used by the CSDE program. They are the 
primitive list, application timing file and symbol table. 
The primitive list as shown in Appendix F, was modified from 
the original Translator output to position the value for max 
loop count as the second argument in the primitive 
^B.whilestart'. See Figure 6 in section III.C.6 for an 
illustration of this change. 

Finally, the software, hardware and debug listings are 
displayed exactly as produced from the CSDE program. The 
software listing ia ready to be assembled and the debug 
listing was generated in debug level oO. The errors 
contained therein are for information only and relate to the 


missing colons in the ’s.fixedwait’ primitives. 


B. TRANSLATOR ERRORS 

During the course of primitive testing, some errors were 
discovered in the format of primitives generated by the 
Translator. Other Translator errors relate to the manner in 


which it handles numbers and determines the precision of 


Cn 
Cn 


internally generated variables. All Translator errors are 
summarized in Appendix G. 

Most format errors relate to the placement of values for 
loop counts or time within the primitive title lines. These 


have been documented in Chapter III.C. and apply to the 


following primitives: ’s.forcons’, 7s whilestart’, 
’s.whilecon’’, ^s.sS8tboolwait', ^sS.boolwait^', and 
^a. waitleast'. The primitive realization for ’s.waitleast’ 


also contains many more arguments than in the Translator 
version and modification to its syntax in CSDL is also 
required. This is detailed in section III.C.9. A final 
format error is that the primitive, ‘’s.fixedwait’, is 
generated without the required colon after the value for 
time. The functional mapper module of the CSDE program has 
been modified to accommodate this error. When encountered 
by the CSDE program, error messages are generated and then 
the required colon is inserted in the correct location. All 
errors except for ’s.fixedwait’ require manual correction by 
editing the primitive list prior to running the CSDE 
progran. 

Although CSDL syntax rules allow time units as small as 
nanoseconds, the Translator correctly generates only time 
values accurate to the next lowest millisecond. For 
example, if a CSDL problem contained the statement, ’WAIT 
600 US’, the Translator would generate the primitive, 


°“s.fixedwait (0)’. All time values generated by the 


Translator are in milliseconds and any primitive 
realizations that take input values of time must be written 
accordingly. Millieeconds are excellent time units when 
long delays are required, especially for demonstration 
programs that utilize the leds on the Pro-log 
keyboard/display board. However, for more flexibility in 
possible controller designs, the shorter time units should 
be available for use. This is because some applications, 
for example a jet engine atart controller, might require 
aore stringent response times. 

There are two other problema relating to the 
Translator’s handling of numbers in general. One is that it 
only recognizes integers. For example, if a CSDL problem 
segment was written as ’COUNT:=COUNT+10.6’%, the number, 
10.6, would be passed to the primitive list as simply 10. 
The second problem involves the criteria used to create 16 
bit constante instead of 8 bit constante. For example, if a 
CSDL problem segment was written as ’COUNT:=128’, the 
primitive, ^s8.COons (9CO1,128:85)^ would appear in the 
primitive list. If the value was 129 instead of 128, the 
primitive,  's.cons  (Q9CO1,129:165 would appear. This is 
wrong because the largest positive twos complement number 
that can be specified in an 8 bit word is 127. Therefore 
the decision point for specifying 8 bit or 16 bit constants 


should be between 127 and 128, not 128 and 129. 


One other error relating to the precision of variables 
occurs when dealing with primitives that use boolean 
variables. For example, the primitive, ^g.eq', has three 
arguments and compares the values of the second and third 
arguments for equality. Upon completion of the equality 
test, the first argument is set equal to FF hex for true or 
OO hex for false. Since the first argument is always used 
ag a boolean variable, an 8 bit precision will always be 
sufficient even if the other arguments call for 16 bit 
precision. All relational primitive realizations were 
written assuming the boolean argument will always have an 82 
bit precision. Unfortunately, the Translator generates a 16 


bit boolean argument whenever either of the other arguments 


Example Relational Primitive (unedited) 
P 30s.eq (TG11,ARG1,CONST:16,16,16) 
|| 16 bit variable generated 
by Translator to pass 
boolean result; only needs 
to have 8 bit precision 


Required Format for Input to CSDE Program 


P 30s.eq (TG901,ARG1,CONST:8,16,16) 


Figure 10 Changes Required for Relational Primitives 


hag a 16 bit precision. This results in criteria check 


errors from the CSDE program whenever large numbers 
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requiring 16 bit precision are compared within a relational 
primitive. Primitive lista containing such errors must be 
corrected before running the CSDE program. An example is 
contained in Figure 10. 

The final Translator error requiring correction is that 
if variables are declared as type DUPLEX, any subsequent use 
of those variables in a 'SENSE ^", or ’ISSUE’ statement 
results in eyntax error messages. This is wrong because the 
whole concept of DUPLEX type variables involves their use 
for either input or output. This was discussed in section 


III.C.1. 


C. THE CSDE PROGRAM 

As mentioned in Chapter I, the CSDE program underwent 
revision during the course of research for this thesis. 
Most changes are transparent to the user and involved 
streamlining the CSDE program source code to improve 
efficiency. Additional improvements over the NEWCSDL 
version used by Smith and Riley include the addition of a 
user friendly menu and elimination of the need for the 
input file, MONTER.DAT. This file contained the primitives 
required to generate the monitor section of a controller 
program. The monitor primitives were already contained in 
the Realization Volurme and thus,  MONTER.DAT was really not 


needed. 
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The revised CSDE program, CLIB, was exercised frequently 
while developing and teating new primitive realizations. 
Many errors that had been introduced during its revision 
were identified and corrected as testing progressed. The 
importance of good communication between the user (me) and 
software maintenance personnel (Mr. Lukas) was made very 
clear. Despite delays due to errors in CLIB, testing for 
this thesis could not have been completed without it. The 
CSDE workstation also proved invaluable in reducing testing 
time per primitive compared to the methods used Dy Smith. 

Realization testing and debugging CLIB uncovered an 
important idiosyncrasy of CSDE. Specifically, the input 
file containing the list of global variables, usually named 
GLOBALS.DAT, has a strict format. Certain positions within 
the globals file are reserved for global variables used 
internally by CLIB. If a new global variable used within a 
primitive realization is accidentally placed in one of these 
’ hard wired’ positions unpredictable errors will be 
generated. The current global variable file contains some 
global variables that are not found in the Revised  Z-80 
Realization Volume. These variables were added by Smith 
because they were used in some of his primitive realizations 
from the original Z-80 Realization Volume. Since these 
primitives have been deleted from the Revised 2-80 
Realization Volume, some global variables added by Smith 


serve no function as far as primitives are concerned. 
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However, because of their position in GLOBALS.DAT they might 
still be used internally by CLIB. Thus, global variables 
not found in the Revised Realization Volume have been 
retained to insure that CLIB runs correctly. If any new 
global variables are added in the future they should be 
added at the bottom of the file. Also, the number at the 
top of the file, indicating the total number of global 
variables, should be adjusted accordingly. Figure 11 


displays the contents of the current global variable file. 
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Contents of 
Global Variable File 


022 

arnd oO. 
bdos 5. 
chips O. 
clock O. 
initlkO. 
reps 1. 
natodeO. 
natodpO. 
ndtoaed. 
ndtoapO. 
ninoutO. 
nkey oO. 


nled -1. 


nodgt O. 
norom O. 
nrockrO. 
ramptrO. 
romptrO. 
scrtchO. 
slot oO. 
keybrdO. 
tablckO. 


Applicable Notes 
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WW 

Q9 OH Ww 
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Note Explanations 


Figure 


Available for use if initialization 
primitives are added. See Figure 9. 


Not used in Revised 2-80 Realization Volume. 


Added by Smith, used in original 2-80 
Realization Volume. 


Used internally by the CSDE program, CLIB. 
Used in Revised 2-80 Realization Volume. 


Known ’hard wired’ position used by CLIB. 


11 Contents of Global Variable File 


V. CONCLUSIONS 


The goals for thia thesis have been accomplished. All 
but a few discrepancies have been resolved between the 
Translator and the 2-80 Realization Volume. Numerous test 
problema have been run through the entire CSDE ayatenm, from 
CSDL problem statement to operating program on the Pro-log 
microcomputer. These test problems, as implemented on the 
Pro-log, can be considered true controller realizations 
since changes in input values result in different output 
values. 

More coaplex problems should be demonstrated in the 
future. This will require the addition of more complex I/O 
hardware with accompanying modification to the I/O primitive 
realizations. If, for example, Riley’s jet engine 
controller were to be demonstrated, a means would also be 
needed of simulating the various parameters to be sensed. 
An array of potentiometers connected to analog to digital 
converters might be utilized for this purpose. Similarly, 
outputs from the controller would need to be displayed 
differently than the current method using leds. Complex 
problemas aight require more memory than the currently 
available 16k RAM. 

The Translator errors discussed in chapter IV should be 


corrected. This would result in complete compatibility 
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between component parts of CSDE and would eliminate the need 
for manual modification of intermediate primitive lists. 
Another modification to the Translator might be to improve 
the clarity of its error messages when CSDL syntax errors 
are encountered. Currently, these messages are extremely 
difficult to understand since they only point out the 
location of a syntax error within a CSDL probler. Until a 
syntax directed editor or language manual is developed for 
CSDL, the error detection facility of the Translator is the 
only aid available for writing correct CSDL problema. 

This thesis research was primarily an exercise iin 
software rmaintenance. The problems encountered and effort 
expended to solve those problems were invaluable in 
demonstrating why software maintenance requires such large 
proportions of government and industry data processing 
resources. For example, the concept of continuity between 


development personnel became quite clear as many questions 


arose concerning previous researchers work. Had personnel 
such as Carson, Smith, and Riley been available for 
consultation, auch tine probably could have been saved. 


The importance of good communication between users and 
maintenance personnel was proven as the revised CSDE progran 
was successfully debugged. This also illustrated the 
difficulties that arise when two components of a system that 
affect each other undergo maintenance at the same time. 


Errors in the revised CSDE program caused some unanticipated 
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delays in the testing of new primitive realizations. 
Finally, good documentation ia mandatory for a successful 


software maintenance project. 


APPENDIX A 


PRIMITIVES AVAILABLE FROM TRANSLATOR 


This appendix contains a list of all primititives that 
can be produced by Carson’s translator. The corresponding 
production number can be used to find the Backus-Naur syntax 
structure in the listing of the CSDL language in Carson’s 
thesis (Ref 8: pp. 47-54]. A brief phrase describing each 
primitive is also supplied. 


PRIMITIVE PROD NUMBER MEANING 


ADD 23 Addition 

SUB 21 Subtraction 

MULT 23 Multiply 

DIVIDE 23 Divide 

LT 29 Less Than 

LE 29 Less Than or Equal To 

EQ 29 Equal To 

GT 25 Greater Than 

GE 25 Greater Than of Equal To 
NE 25 Not Equal To 

NOT? 22 Boolean Not 

AND 27 Boolean And 

OR 29 Boolean Or 

IMPLICATE 31 Logical Implication 
EQUIVALENC 33 Logical Equivalence 

LOC 37 Location in IF THEN 

JMPF 38 Jump If False 

WHEND 39 End of WHILE Construct 
WHILECON 40 Test Portion of WHILE Construct 
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WHILESTART 


FOREND 


FORCONS 


CALL 


ASSIGN 


SENSECOND 


ISSUEVENT 


NI 


IN 


FIXEDWAIT 


WAITLEAST 


BOOLWAIT 


STBOOLWAIT 


INPUTPORT 


OUTPUTPORT 


IN/OUTPORT 


VAR 


EXITPROC 


PROC 


SYSTEM 


CONS 


41 


42 


43 


44 


49 


30 


91 


61 


62 


63 


64 


65 


66 


86 


87 


94 


105 


146 


145 


190 


102 


190 


Beginning of WHILE Construct 
End of FOR LOOP 

Condition Tested in FOR LOOP 
Generate a Pocedure Call 
Assignment Statement 

Sense a Condition for Data Input 
Data Output 

End of IN Construct(Timed Block) 
Beginning of IN Construct 

Timed Software Delay 

Minimum Wait 

Body of Boolean Wait Constuct 


Wait Until (Start of Boolean 
Wait Construct) 


Input Specification 
Output Specification 
Duplex (input or output) Spec 
Variable Assignment 


Marks Exit of Procedure, 
Function, or Task 


Marks Beginning of Procedure, 
Function, or Task 


Generates System Title 
Generated by Translator as 


Location Assignment Place 
Holders 


Constant 


* Although the Translator is supposed to be able to 


67 


generate a ’NOT’ primitive, attempts to do so were 
unsuccessful. 
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APPENDIX B 
CSDL TEST PROGRAM 


This appendix contains Carsaon’sa CSDL test program to 
exercise the Translator to produce all possible primitives. 
As originally written, it did not contain the CSDL 
atructurea to produce the primitives, ’a.aub’, ’s.not’, 
^B.call', and *s.waitleast'. Structures have been added to 
produce all except ’a.not’. Also, the structure, DO MANUAL 
4;', originally found in the contingency list, caused the 
Translator to produce an error message even though it 
appeared to be correct according to CSDL. This structure 
waa deleted. The reaulting primitive list and application 
tining table are contained in Appendix C. 


DESIGNER : "HILL CARSON/ MODIFIED BY BOB VOGEL" 
DATE : "05-31-84/02-20-85" 
PROJECT :“TEST PROGRAM TO EXERCISE TRANSLATOR” 


DESIGN CRITERIA 
METRIC FIRST; 
VOLUMES 1; 
MONITORS 1; 


ENVIRONMENT 


INPUT:KEYFLG,1,TTL; KEYCHAR,8,TTL; 
ACNUM,8,TTL; 
END INPUT: 


OUTPUT: MENU,8,TTL;POLL,8,TTL; END OUTPUT; 
DUPLEX MSGVDT,8,TTL; END DUPLEX; 


ARITHMETIC: KEYINMAIN,8; MINTAC,8; MMSGDSPLY,8; 
ACO,8; AC1,8; AC2,8; AC3,8; AC4,8; 
INTPERIOD,8; MSGO,8; 

MSG1,8; MSG2,8; 
NEXTAC,8; TPOLL,1; COUNT,8; 

END ARITHMETIC; 
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PROCEDURES 


FUNCTION KEYINMAIN: 

BINARY,1; 

SENSE (KEYFLG); 

IF KEYFLG=1 THEN KEYINMAIN:=1; END IF; 
END KEYINMAIN; 


TASK KBINPMAIN: 
MENU:=O0: ISSUE (MENU); 
SENSE (CKEYCHAR); 
IF KEYCHAR=1 THEN MINTAC :=13; END IF; 
WAIT 10MS; 
END KBINPMAIN: 


TASK MANUAL; 
IF ACO/=0 THEN POLL:=O3; ISSUE (POLL); END IF; 
IF AC1«O THEN POLL:-1; ISSUE (POLL); END IF; 
IF AC2«-0 THEN POLL:-2; ISSUE (POLL); END IF; 
IF AC3>=0 THEN POLL:=3; ISSUE (POLL); END IF; 
IF AC4>0 THEN POLL:=4; ISSUE (POLL); END IF; 
END MANUAL; 


FUNCTION TPOLL: 
BINARY,1; 
IF INTPERIOD=30 THEN IN 30 M DO TPOLL:=1; END IN; 
END IF; 

END TPOLL; 


TASK MSGDSPLY; 

KBINPMAIN; 

MMSGDSPLY:=0; 

WAIT MMSGDSPLY+1: SOOMS; 

WAIT UNTIL MMSGDSPLY = O: 10MS; 
END MSGDSPLY; 


TASK LOGIN; 
ACNUM: =O; 
FOR COUNT FROM 1 TO 4:4 DO 
SENSE (KEYCHAR); 
ACNUM: =ACNUM-5; 
ACNUM: = (ACNUM#10) +KEYCHAR; 
END FOR; 


IF NEXTAC=0 AND ACO=O THEN ACO:-ACNUM; END IF: 
IF NEXTAC=1 OR AC1=0 THEN AC1:=ACNUM: END IF; 
IF NEXTAC=2 => AC2=O THEN AC2:=ACNUM: END IF: 
IF NEXTAC=3 == AC3=0 THEN AC3:=ACNUM: END IF: 
WHILE ACNUM = 1 : 4 DO 
AC4 i= 4:3 
ACNUM "es ACNUM * 1; 
END WHILE: 
END LOGIN; 


TASK LOGOUT: 
ACNUM: =03 
FOR COUNT FROM 1 TO 4:4 DO 
SENSE (KEYCHAR):; 
ACNUM: = (ACNUM2#10) /KEYCHAR: 
END FOR: 
IF ACOsACNUM THEN ACO:=0: END IF: 
END LOGOUT: 


CONTINGENCY LIST 
WHEN KEYINMAIN : 100 MS DO KBINPMAIN; 
EVERY 20MS DO KBINPMAIN; 
AT 3OOMS DO KBINPMAIN; 

END 
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APPENDIX C 


PRIMITIVE LIST, APPLICATION TIMING TABLE AND SYMBOL 
TABLE PRODUCED BY TRANSLATOR FROM CSDL TEST PROGRAM 


This appendix contains the unedited output from the 
Translator that results from the CSDL test program in 
Appendix B. The first item is the primitive list that cones 
out in the file PRIMFILE.DAT, the second item is the 
application timing table that comes out in the file 
IADEFL.DAT, and the last item is the symbol table that comes 
out in the file, SYMFILE.DAT. 


PRIMFILE.DAT 


28.MAIN C33) 

3d:FIRST : 1: 1: 
4s.inputport (KEYFLG,TTL:1) 
Ss.inputport (CKEYCHAR,TTL:8) 
6s.inputport CACNUM,TTL:8) 
7s.outputport (MENU, TTL:8) 

8s .outputport (POLL, TTL:8) 
Sa.in/outport (MSGVDT,TTL:8) 


LOe, var CKEYINMAIN:8,0) 
lis.var (MINTAC:8,0) 
1258.var (MMSGDSPLY:8,0) 
138.var (ACO:8,0) 

Lëe, var (AC1:8,0) 
155.var (AC2:8,0) 
168.var (AC3:8,0) 
17a.var (AC4:8,0) 
18s8.var CINTPERIOD:8,0) 
19a.var (MSGO:8,0) 
20s.var (MSG1:8,0) 
2158.var (MSG2:8,0) 
228.var (NEXTAC:8,0) 
238.var (TPOLL:1,0) 
248.var (COUNT:8,0) 


29t.generated for: KEYINMAIN 
268.proc CKEYINMAIN: ) 
278.8enaecond (KEYFLG:1) 


9» » Ee EE OE 


28s .eq (@T0O1,KEYFLG,@6C01:8,1,8) 
298.)3nmpf (9TO1,Q01:8) 

3Og.eassign (KEYINMAIN,QCO1:1,8) 
31s.1loc (QO1:) 


328.exitproc  (KEYINMAIN:) 
33t.generated for: KBINPMAIN 
34e.proc CKBINPMAIN: ) 
358a .assign (MENU, QCO2:8,8) 
36s.iasuevent (MENU:8) 


OO mmm 000 00000 00000 0000 "0 


00000 00000 00000 00000 00000 mm o 


37s8.sensecond 
388 .eq 
39a.japft 

40s .assign 
41s.1loc 
428.fixedwait 
438.exitproc 
44t .generated 
458.proc 
46a.ne 
47a.japt 
488.asaign 
498.issuevent 
508.1oc 
Sis.lt 
 32s8.jmupft 
S3as.assign 
S94s.issuevent 
S558. loc 

568. 1e 
578.japt 
~8s.asaign 
o9s.issuevent 
608s.10oc 
61s.ge 

62s. jupt 

63s .aasign 
64s.issuevent 
6Ss.loc 
668.9t 
678.38pf 
68s.asasign 
698.1s58uevent 
708.1loc 
71s.exitproc 
72t.generated 
738.proc 
74s58.eq 
7358.japt 
765.in 
77a@.asaign 
78a .ni 
79a.1loc 

808 .exitproc 
81t.generated 
828.proc 

838. call 
84s.assign 
858. add 

86a .waitleast 


CKEYCHAR: 8) 

(@TO1 , KEYCHAR, @CO1 :8,8,8) 
(9TO1,Q0Q02:8) 
(MINTAC,Q90CO1:8,8) 
(902:) 

(10) 

CKBINPMAIN: ) 

for: MANUAL XTTITTTTTITITTTYTTYTT: 
(MANUAL :) 
(9TO1,ACO,QCO2:8,8,8) 
(@TO1 ,@03:8) 

(POLL ,@CO2:8,8) 
(POLL: 8) 

(903:) 
(9TO1,AC1,Q0CO2:8,8,98) 
(9TO1,004:8) 
(POLL,0CO1:8,8) 

(POLL :8) 

(@04:) 
(9TO1,AC2,0CO2:8,8,8) 
(@TO1 ,@05: 8) 

(POLL, @CO3:8,8) 
(POLL: 8) 

(QO3:) 
(9TO1,AC3,0CO2:8,8,8) 
(@TO1 ,@06:8) 

(POLL, @CO4:8,8) 

(POLL 3:8) 

(Q906:) 
(9TO1,AC4,9CO2:;8,8,8) 
(9TO1,Q007:8) 

(POLL ,9GCOS5:8,8) 

(POLL :8) 

(907 :) 

(MANUAL : ) 

for: TPOLL PERE SES EEE EEE SS ST 
(TPOLL :) 
(9TO1,INTPERIOD,0CO6:8,8,8) 
(@TO1 ,@08: 8) 
(1800000) 

(TPOLL, @C01:1,8) 


(908:) 

(TPOLL $1) 

for: MSGDSPLY utstutuxu»net B» 
(MSGDSPLY:) 

(KBINPMAIN:) 

(MMSGDSPLY,QCO2:8,8) 
(GTO1,MMSGDSPLY,9CO1:8,8,8) 

(Q9TO1,8:S500) 


87a .stboolwait (@093) 
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mmm 00000 0000 00000 00000 000 "Om 0 


8858.eq 


89a .boolwait 
908 .exitproc 
91t.generated for: 


92a.proc 
93s .asaasign 


94s.forcons 
95s .aensecond 


968.aub 
3728.6as2ign 
98s.mult 
998 .add 
1008.asasign 
1018.forend 
1028.eq 
103a.eq 
104a8.and 
105a.Jjnmpf 
lO6s.aaaign 
107s8.1oc 
108s.eq 
1098.eq 
1108.0r 
1118s.73mpf 
112s.aasign 
113s.loc 
1145.eq 
115s .eq 


116s.implicate 


1178.3 apf 
118s .aasign 
1198.loc 
120s .eq 
121s.eq 


(@TO1,MMSGDSPLY , @CO2:8,8,8) 
(@TO1,@09,@10:8,10) 
(MSGDSPLY:) 
LOGIN 
(LOGIN: ) 
(ACNUM,@CO2:8,8) 
(COUNT, @CO1,@CO5,@11,612:8,8,8,4) 
(KEYCHAR:8) 
(@TO1,ACNUM,@CO7:8,8,8) 
(ACNUM,GTO1 :8,8) 
(G8TO1,ACNUM,QCO8:8,8,8) 

(@TO1 ,@TO1,KEYCHAR:8,8,8) 
(ACNUM, @T01:8,8) 

(COUNT ,@11,@12:8,4) 

(@TO1, NEXTAC, @CO2:8,8,8) 
(@TO2, ACO, @CO02:8,8,8) 
(@TO1,@TO1,@T02:8,8,8) 
(@TO1,@13:8) 

(ACO, ACNUM:8,8) 

(@13:) 
(@TO1,NEXTAC,@C01:8,8,8) 
(@TO2,AC1,@C02:8,8,8) 
(@TO1,@TO1,@T02:8,8,8) 

(@TO1 ,@14:8) 

(AC1,ACNUM:8,8) 

(@14:) 
(GTO1,NEXTAC,QCO3:8,8,8) 
(@TO2, AC2,@C02:8,8,8) 
(8TO1,0TO1,0TO2:8,8,8) 
(8TO1,015:8) 

(AC2, ACNUM:8,8) 

(815:) 
(G8TO1,NEXTAC,8CO4:8,8,8) 
(9TO2,AC3,0CO2:8,8,8) 


1228.equivalenc(QTO1,9TO1,QTO2:8,8,8) 


123s.JjmMpf 
1248 .assign 
125s.loc 


(@TO1 ,@16:8) 
(AC3,ACNUM:8,8) 
(@16:) 


126a.whileatart(@17: ) 


1278 .eq 


128s.whilecon 


12948 .assign 
130s.add 

1318.as8gign 
132s.whend 


133s.exitproc 
l3dt.generated for: 


1358s.proc 
136s .assign 


137e.forcons 


(@TO1,ACNUM,@CO1:8,8,8) 
(@TO1,@18:4) 
(AC4,9C05:8,8) 
(@TO1,ACNUM, @CO1:8,8,8) 
CACNUM, @T01:8,8) 
(@17,@18:) 

(LOGIN:) 

LOGOUT 

(LOGOUT: ) 
(ACNUM,@CO2:8,8) 
(COUNT, @CO1, @COS5, @19,@620:8,8,8,4) 


3 UE 38 TE HE TE TE EE EE EE OE 


138s.a8ensecond (KEYCHAR: 8) 
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vv Vv VV VV VVVV VV VV VU UO 


> > P 


139s.mult 


(@TO1, ACNUM, @CO08:8,8,8) 


140s.divide (@TO1 ,@T0O1,KEYCHAR:8,8,8) 
141s.aseign (ACNUM,QTO1:8,8) 
142s .forend (COUNT ,@19,9020:8,4) 
143a.eq (@TO01,ACO, ACNUM:8,8,8) 
144e. 3 apf (@TO1 ,@21:8) 
145a.assign (ACO, @C02:8,8) 
1468.loc (@21:) 
147s.exitproc (LOGOUT: ) 
148t .generated for: SYSTEM 
1495.cons (9CO1,1:8) 
150a .cons (9C02,0:8) 
1518.cons (9CO3,2:8) 
152s.cons (9C0O4,3:8) 
153s5.cona (QCO5,4:8) 
154a.cons (@CO06, 30:8) 
1555.cons (9CO7,5:8) 
156s.cons (9C08,10:8) 
157a.var (9TO1:8) 
158g.var (9TO2:8) 
IADEFL.DAT 
T : sKBINPMAIN :MS: 100, Oo, 
2 : :KBINPMAIN :MS: 20, O, 
3 : sKBINPMAIN :MS: 300, O, 
SYMFILE.DAT 


S. INPUTPORTCKEYFLG,TTL:1) 
S. INPUTPORT (KEYCHAR,TTL:8) 
S. INPUTPORT(ACNUM, TTL :8) 
S.QOUTPUTPORT(MENU, TTL :8) 
S.QUTPUTPORT(POLL,TTL:8) 
S.IN/OUTPORT (MSGVDT, TTL: 8) 


S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.VARIABLE 


(KEYINMAIN:8,0) 
(MINTAC:8,0) 
(MMSGDSPLY:8,0) 
(ACO:8,0) 
(AC1:8,0) 
(AC2:8,0) 
(AC3:8,0) 
(AC4:8,0) 
(INTPERIOD:8,0) 
(MSGO:8,0) 
(MSG1:8,0) 
(MSG2:8,0) 


Oo, Oo, Q 
O, Oo, O 
Oo, Oo, Oo 


S.VARIABLE 
S.VARIABLE 
S.VARIABLE 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 
S.LOC 

S. LOC 
S.LOC 
S.CONS 
S.CONS 
S.CONS 
S.CONS 
S.CONS 
S.CONS 
S.CONS 
S.CONS 


(NEXTAC:8,0) 
(TPOLL:1,0) 
(COUNT:8,0) 
(901:) 
(902:) 
(903:) 
(@04:) 
(805: ) 
(906:) 
(007:) 
(008: ) 
(013:) 
(@14:) 
(915:) 
(016:) 
(@21:) 
¢@c01:1,8) 
(9C02:0,8) 
(9CO03:2,8) 
(9C04:3,8) 
($CO05:4,8) 
(9C06:30,8) 
(9C07:5,8) 
(9C08:10,8) 
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APPENDIX D 


COMPARISON OF PRIMITIVES 


This appendix displays a comparison of the primitives 
available from the Revised 2-80 Realization Volume (Appendix 
E>) and the primitives available from the Translator. 
Primitives from the Revised Volume are in the same format as 
they appear in the index in Appendix E except that the seven 
numeric values following the second column are not shown. 
Primitives from the Translator are in the same format as they 
appear in the primitive listing that is generated by the 
Translator when Carson’s CSDL test program (Appendx C) is run 
through it. Differences in the arrangement of arguments 
between some Realization and Translator primitives are due 
errors in the Translator (aummarized in Appendix G). The 
primitive, 's.in/outport^, was not added to the Realization 
Volume. 


REVISED 2-80 VOLUME CARSON'S TRANSLATOR 

s, add (rslt,argi,arge:0,8,0,8,0,8: ) S, add (8T01, 8TO1, KEYCHAR:8, 8, 8) 
5. add (rslt,argi,arge:0,16,0,16,0,16:  ) 

s, and (rslit,argi,arge:0,8,0,8,0,8: ) s, and (8101, 8TO1, 8T02:8, 8, 8) 
s.assign (var,data:0,8,0,8: ) s. assign (KEYINMAIN, 8C01 1,8) 


s.assign (var,data:0, 16,0,16: ) 


S, boolwait (rsit, top, bot:0, 8: ) s. boolwait (8T01, 809, 810:8, 10) 

s. call (nami: ) s. Call (ONLITA:) 

S. CONS (nam, val, :0,8: ) S. CONS (@C01, 1:8) 

S, Cons (nam, val, :0,16: ) 

s.divide — (rslt,argi,arg?:0,8,0,8,0,8: ) s, divide (8T01, 8TO1, KEYCHAR: 8, 8, 8) 


s.divide — (rsit,argi,arge:0,16,0,16,0,16: ) 


s, end (ss 17 
S. eq (rs1t,argi,arge:0,8,0,8,0,8:. ) s. eq (@T01, KEYFLG, @C01:8, 1,8) 
S, eQ (rslt,argi,arge:0,8,0,16,0,16:  ) 
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s.equivalenc(rsit, argl, arg2:0,8,0,8,0,8: ) 


s, exit proc 
s, fixedwait 
s, forcons 
s, forend 

S. ge 

S. ge 

S. gt 

S, gt 

s, implicate 


S, in 


s, ihputport 
s, issuevent 
s, Jupf 

s, le 

s, le 

s. loc 

s, lt 

s, lt 

s. main 

s, Bonitor 
Ss. mult 
smult 

s, mult 


s, ne 


s, equivalenc 


(nam ss) s. exit proc 
(time:0, 1279: ) s, fixedwait 
(indx, lwr, upr, slab, elab,val:0, 8,0, 8, 0,8:) s. forcons 
(indx,slab,elab:0,8: ) S, forend 
(rslt, argi,arge:0,8,0,8,0,8: ) S. ge 
(rslt,argl,arge:0,8,0,16,0,16: ) 

(rslt, argi,arge:0,8,0,8,0,8: ) S. üt 


(rslt, argl, arge:0, 8,0, 16,0,16: ) 


(rslt, argl, arge:0, 8,0, 8, 0, 8: ) s. implicate 


(cme s, in 

s, in/outport 
(innam, tech:0,8: ) s, input port 
(outna:0,8: ) S, issuevent 
(val,loc :0,8: ) S. jupf 
(rslt, argi, arge:0,8,0,8,0,8: ) s. le 
(rslt,argi,arge:0, 8,0, 16,0,16: ) 
(loc ss ) s. loc 
(rslt,argi,arge:0,8,0,8,0,8: ) s, lt 
(rslt,argi,arge:0,8,0,16,0,16:  ) 
(ae ae) 
(E 
(rslt, argl,arge:0,8,0,8,0,8: ) Ss. sult 
(rslt,argl,arge:0, 16,0,8,0,8: ) 
(rslt, argi,arg2e:0, 16,0, 16,0,16: ) 
(rslt,argl, arge:0,8,0,8,0,8: ) s, ne 
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(@TO1, @TO1, @T02:8, 8,8) 
(KEYINMAIN:) 

(10) 

(COUNT, &CO1 , &CO5, 811, 812:8, 8, 8, 4) 
(COUNT, 811, 812:8, 4) 


(8T01, AC3, @C02:8, 8, 8) 


(@T01, ACA, @C02:8, 8, 8) 


(8T01,8T01, 8T02:8, 8, 8) 
(1800000) 

(MSGVDT, TTL: 8) 

(KEYFLG, TTL: 8) 

(MENU: 8) 

(@T01, 801:8) 


(@T01, AC2, @C02:8, 8, 8) 


(801:) 


(@T01, AC1, @C02:8, 8, 8) 


(@TO1, ACNUM, @C07:8, 8, 8) 


(8T01, ACO, @C02:8, 8, 8) 


s, ne 


S, hi 


S. not 


Se OY 


(rslt,argl, arge:0, 8, 0, 16, 0, 16: 
(sr )" 
(rslt,argi:0,8,0,8: ) 


(rslt, argi,arg2:0,8, 0, 8,0,8: ) 


s, out put port (outre, tech:0,8: ) 


s, proc 


(nam :* ) 


s, sensecond (innam:0,8: ) 


s.setime (clktim:0,30768:; ) *** 

5, Stboolwait (top, saxtm: : 

S. Sub (rslt,argi,arge:0,8,0,8,0,8: ) 
5, Sub (rs1t,arg1, arg2:0,16,0,16,0,16: ) 
s.tabaccpe (:: )* 

s.tabend (3: )* 

s.tabent (fne,task:: )* 

S, Var (name:0,8:  ) 

S, Var (name:0, 16: ) 

Ss. waltleast (indx,upr, top, bot, per, 1ax:0,8, 0, 8: ) 
s, whend (top,bot:: ) 

s.Whilecon (rslt,bot:0,8: ) 


s, whilestart (top, ]pct:: ) 


* £4 


) 


S. hi 
S, hot 


S, or 


Ss. out put port 
5. proc 


s, Sensecond 


5. St boolwait 


S, Sub 


S. var 

s. var 

S. wait least 
s, whend 

s, whilecon 


s, whilestart 


(33) 

229? 
(8101, 8T01, 8T02:8, 8, 8) 
(MENU, TTL:8) 

(KEY INMAIN: ) 


(KEYFLE: 1) 


(809:) 


(8T01, &CO1, 8C02:8, 8, 8) 


(KEYINMAIN:8, 0) FFF* 
(810118) HHH 

(8T01, 8:500) 
(817,818:) 
(8T01,818:4) 


(817:) 


These primitives are used by the CSDE system to 
construct the monitor section of the generated 


controller program. 
the Realization Volume, 
Translator because the monitor strategy 


Although they must be present in 
they are not produced by the 


is not 


controlled by the designer who writes the CSDL 


problem. 


These primitives were added to the Realization Volume 
for completeness but are not useable aa currently 


implemented. 


2772? 


This primitive is called by ’s.atboolwait’. 


The Translator produces 2 versions of ’as.var’ and both 
are compatible with the Realization Volume. 


This Translator primitive was not generated 
by Carson’s original CSDL test program and 
aubseqent attempts to generate it proved 
unauccesaful. 


ao 


APPENDIX E 


REVISED 2-80 REALIZATION VOLUME 


This appendix displays the revised 2-80 Realization 
Volume. It contains primitives retained from Smith’s 
original 2-80 Volume plus newly constructed primitives. 


v0000 280 cpu : clpper=0.25 : semdly=0.c3 : moncst=10: 
vO87eh.cardcage (:: , , ,0,0,872, 876) 

v1005h. clock (2: , , 90,9, 1005, 1028) 

vl029h. keydisplay(:: , , ,6,8, 1029, 1048) 

vO877h.memory (3: , , ,2,3,877,897) 

vOBA7h. processor (:: , , ,2,3, 647,871) 

v0898h. tcardcage (:: , , ,0,0,898,904) 

viz2Bh. uart (095191910, 1028, 1042] 

vi?06s. call (nam 3:3, 17,0, 7,0, 1206, 1213) 

vO334s. add (rslt, argl,arge:0, 8, 0, 8, 0, 8:23, 78, 26, 14,0, 354, 368) 
v0333s. add (rslt,argi,arge:0, 16, 0, 16,0, 16:31, 126, 37, 18,0, 553, 571) 
v0110s. and (rslt, arg1, arge:0,8,0, 8,0, 8:11,47,15,10,0, 110, 120) 
vOO7es.assign (var, data:0, 8,0, 8:6, 26,8, 7,0, 972,979) 

v0980s. assign (var, data:0, 16, 0, 16:6, 32, 10, 7, 0, 580, 587) 

v1182s. boolwait (rsit, top, bot:0, 8:22, 93, 26, 23, 0, 1182, 1205) 

vO3965. cons (nam, val, :0,8:1, 0, 0,6, 0, 536, 602) 

v0677s. cons (nam, val, :0,16:2,0,0, 6,0,677,683) 

v0909s.divide (rsit,argi,arge:0,8, 0,8, 0, 8:56, 504, 129, 41, 0, 905, 946) 
v0947s.divide (rsit,argi,arge:9, 16,0, 16,0, 16:80, 1465, 376,97, 0, 947, 1004) 
v0700s. end (3:3, 10,3, 8, 10, 700, 710) 

v0228s. eq (rsit,argl, arge:0,8,0,8,0, 8:16, 70,20, 13, 0, 228, 241) 
v04415. eq (rsit, argi,arge:0,8, 0, 16,0, 16:18, 91,26, 13, 0, 441, 454) 
v0148s. equivalenc(rslt, arg], arg2:0,8,0,8,0,8:12, 51, 15, 17,0, 148, 165) 
v0670s.exitproc (nam ::1, 10, 3,6, 0,670, 676) 

v1049s. fixedwait (time:0, 1275:15,-5, 18, 6,0, 1049, 1068) 

vO396s.forcons (indx, lwr,upr,slab, elab, val:0, 8, 0, 8, 0, 8:17, 70, 21, 6, 0, 396, 413) 
v0315s.forend (indx,slab,elab:0, 8:7,27,8, 3,0, 315, 304) 

vOcB6s. ge (rslt, argi, arge:0, 8, 0, 8, 0, 8: 42, 108, 31, 28, 0, 286, 314) 
v0414s. ge (rsit, argi,arg2:0, 8, 0, 16,0, 16:46, 118, 34, 26, 0, 414, 440) 
v0080s. gt (rsit, argi,arge:0, 8, 0, 8, 0, 8:45, 118, 34, 29, 0, 80, 109) 
v048es. gt (rslt, argl,arge:0, 8,0, 16,0, 16:46, 118, 34, 26, 0, 482, 908) 
v0166s. implicate (rsit, argi,arge:0, 8, 0, 8, 0, 8: 14,57, 17, 16, 0, 165, 182) 
villás. in lesap 3 9, 0, 121411223) 

v11045. inputport (innam, tech:0, 8:0, 0,0, 13, 12, 1104, 1125) 

v1069s. issuevent (outna:0, 8:5, 24, 7,8, 0, 1069, 1077) 

v0711s. jupf (val, loc :0,8: 8, 30,8, 8, 0, 711,719) 

v03e5s. le (rslt, arg, arge:0,8, 0,8, 0, 8:42, 108, 21, 28, 0, 325, 353) 
v0455s. le (rslt, arg1, arge:0,8, 0, 16, 0, 16:46, 118, 34, 26,0, 455, 481) 
v0693s. loc (loc ::1,4,1,6,0, 693, 699) 

vOe^es, 1t (rslt, arg, arge:0,8, 0, 8, 0, 8:45,118, 34, 29,0, 040, 271) 
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v0369s. It (rslt, argl, arge:0, 8, 0, 16,0, 16:46, 131, 38, 26, 0, 369, 395) 
vOS09s. main (337,24, 7,21, 23, 909, 932) 

v0720s. monitor — (::1,4,1, 7,0, 700, TT) 

v0735s. ault (rslt, argl, arge:0,8, 0,8, 0, 8:35, 508, 138, 02,0, 7 35, 757) 
vOT98s. mult (rslt, arg1, arge:0, 16, 0, 8, 0, 8: 34,527, 138, 21,0, 758, 773) 
v0780s. mult (rslt, argl, arge:0, 16,0, 16, 0, 16:39, 1103, 289, 22, 0, 780, 802) 


v02725. ne (rst, arg1, arg? :0,8, 0, 8, 0, 8:16, 71, 20,13, 0, 272, 283) 
v0833s. ne (rslt, argl, arg2:0, 6,0, 16, 0, 16:16, 91, 26, 13, 0, 833, 846) 
v1224s. ni (noe yn tees Tes) 

viele, mot (rslt, argl:0, 8, 0, 8:7, 30, 9, 8, 0, 219, 227) 

v0069s. or (rslt, argl, arge:0, 8, 0, 8, 0, 8:11, 47, 14, 10, 0, 69, 79) 


v1078s. out put port (outnm, tech:0, 8:6, 29, 8, 14, 13, 1078, 1103) 

wie, proc (nam 3:1, 4, 1, 7, 0, 588, 595) 

v1126s.sensecond (innam:0, 8:56, 129, 37, 44,0, 1126, 1170) 

v0183s. setiwe (clktia:0, 32768:37, 166, 46, 12, 13, 183, 218) 

v1171s. stboolwait (top, maxtm: :1, 75, 1, 10,6, 1171, 1181) 

v0635s. sub (rslt, arg, arge:0, 8, 0, 8, 0, 8:23, 87, 26, 14, 0, 635, 649) 
v0690s. sub (rst, argl, arg2:0, 16, 0, 16, 0, 16:31, 126, 37, 19, 0, 650, 669) 
w0614s.tabaccpe (2: , , 0,0,614,625) 

v07e8s.tabend (3: 3,10,3,6,0, 726, 734) 

v0603s. tabent (fre, task ::10,51, 15, 10, 0, 603, 613) 

v0626s. var (name:0, 8:0, 0,0, 3, 0,626, 634) 

v0684s. var (name:0, 16:0, 0, 0, 3, 0, 684, 692) 

vO12is.waitleast (indx, upr, top, bot, per, max:0, 8,0, 8:23, -10, 27, 26,20, 121, 147) 
v08245. whend (top, bot::3, 10, 3, 4, 0, 824, 832) 

v0815s.whilecon (rslt, bot:0, 8:7, 27,8, 8, 0, 815, 823) 

v0803s. whilestart (top, lpct::1, 4, 1,6, 0, 803, 814) 

v0068 .end index 

v0069s. or (rslt, argl, arge:0, 8, 0, 8, 0, 8: 11,47, 14, 10, 0,69, 79) 
vO070com primitive to perform logical or 

vOO071com listzresult,argument 1, argusent 2 ::stor,time,ext, c, i, addrs 
v0072begin stext 

v0073ld a,((argl)) 34m 13t — 3b rsit = argl .or. arge 
v0074ld b, a sin At 1b 

võ075ld a ((arg2)) ;4m 13t 3b 


v0076or b sin At 1b 

VOO77Id ((rslt)),a ;4m  13t — 3b 

v0078endtext 

v007Scale roaptr=roaptr+11 

v0080s. gt (rslt, arg1, arge:0, 8, 0, 8, 0, 8: 45, 118, 34, 29,0, 80, 109) 


vOOBicom primitive to perform comparision between 2 8-bit numbers 
vOOBecom list-result,argusent 1, argument 2 ::stor,time,ext, c, 1, addrs 
vO0B3begin stext 

vOOB4ld =a, ((arge)) 34a — 13t — 3b if arge It argl then rslt=ffh 
vO08SId b, a sia 4t 1b b=arge 

v00B6ld a,((argl)) ;4ám 13t 3b 

v0087ld c, a sim At 1b Carol 

vOOBBand a cle át 1b set sign flag of arg! 
v0089jp p,$+00dh ran 106 — 3b jump if argl is positive 
voO90ld a, b sim Ab 1b argl = - 

vO03land a in 4t 1b set sign flag of arge 
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v0oseld b, c sim AK ib arge .Swap. arg! 
vOOg3jp s, $*01ih ;3m 10t — 3b arge 7 - argl = - comp backwards 
v009Ald a, 0 scm — Tt eb arge = + argi = - false 


v0095jr $422 än (ët 2b 

vO096ld a, b ‘in At ib 

vOOSg7and a sin At 1b set sign flag of arg2 
v0098ld à, c in át 1b restore argi to accumulator 


v0099jp p, $4000 ;3w 106 — 3b arge = + argl = + 
vO1001d a,11111111b;2m 7t eb arge 7 - argl » * true 
v0101)r $418 A8 le b 

vOl0ecp b in 4t ib 

vô103ld a,00000000b;2m ` 7t eb result false arg? )- argl 
v0104jp 2, Ai "Aa i 3 

v0109jp a, $4 ssa 10t 3b 


v0106cp1 ‘ian AE 1b result true arge lt argi 
v0107ld ((rslt)),a ;4a 13t 3b 

v0108endtext 

v0109calc roaptr=romptr+45 

v01105. and (rslt, argl, arge:0, 8, 0, 8, 0, 8:11, 47,15, 10, 0, 110, 120) 


voilicom primitive to perform logical and 

vOllecom list-result,argument 1, argument 2 ::stor,time,ext,c, i, addrs 
vOll3begin stext 

v01iáld a,((argl)) vw  13t — 3b rslt - argl .and. arge 
vüi9ld b, a in át ib 

v0116ld a,((arg?)) ;4m — 13t — 3b 


voli7and b sin A 1b 
v0118]d ((rslt)),a ;4m 13t — 3b 
v0119endtext 


v0120calc roaptr=roaptr+i 

vO121s. waitleast (indx,upr, top, bot, per, sx:0, 8, 0, 8:23, -10, 07, 26, 20,121,147) 
v0l22com primitive to generate a software wait based on the results of 
wle3com of an aritmetic expression whose integer result is passed to 
vOl24com waitleast in upr the value in upr is the number of times 
vOl2Scom fixedwait will be executed similar to a for loop fixedwait 
vOle6com will be fed the time in the variable per top and bot 
vOle7com are labels max is the max time allowed specified by the 
vOleBcom designer for all possible combinations of upr and per 

vOleScom per and max are in ms to the nearest Sas the wax allowed value 
v0l30com for per is 1¢7Sas and the max allowed value of upr is 127 
wOl3lattr t ime= (max) #4000 

vwOlsebegin stext 


v0133ld a, 1 sem 7t 2b counter always starts at one 
VOISA(top):1d ((indx)),a ;4m 13t 3b update (indx) with latest value 
vO1391d a, ((upr) ) sám 13t 3b 

v0136ld ba sim át 1b 

vOIS71d a, (Cindx)) sám 13t 3b 

UE sim At 1b compare to upper limit 

v0139jp z, (bot) +3 s3a 10t 3b jump out of loop on indx=upr 
vO140endtext 

v0l4licall s.fixedwait ((per):) 

wOl4ebegin stext 


vOl43ld a, ((indx)) sám 13t 3b get current indx value 


wOol44ine a sim At 1b crank indx 
vOL4S (bot): jp (top) sam 10t 3b jumpt to top of loop 
v0146endt ext 


vO0l47calc romptrzromptrte3 

v0148s. equivalenc(rslt, arg1, arg? :0, 8, 0, 8, 0,8: 12,91, 19, 17, 0, 148, 165) 
vOl49com primitive perform to the logical equivalence relation 
vO1S0com the truth table is as follows 


vOlS1com arg! arge rsit 
vO1Secon false(00h) false true(ffh) 
v0153com false true false 
vO01oÁcou true false false 

v01l SScos true true true 


vOlSécom equivalence is simply the opposite of xor 
vOlS7begin stext 
v01581d a, ((arg1)?) s&n 13t 3b  rslt - argl .equiv. arge 


v01591d b, a sim At 1b 
v0160ld a, ( (arge?) sám 13t — 3b 
vOl6lxor b sim át 1b 
v0162cpl in At 1b 
VOIG3Id ((rsit}),a — ;4m Lët 3b 
vOl6^endtext 


v0165calc romptr-zromptr*i2 

v0166s. implicate (rslt, argl, arge:0, 8, 0, 8, 0, 8:14, 57, 17, 16, 0, 166, 182) 
v0l67com primitive to perform logical implication check 

v0l68com truth table is as follows 


v0169com argi arg? rsit 
v0170com false (00h) false true (f fh) 
v0171com false true true 
v0172com true false false 
v0173com true true true 


v0174begin stext 
v01791d a, ( (arg?)) "Aug  13t 3b  rslt - argl . implicate. arge 


v017band a sim At 1b set aero flag 

v0177)p nz, $+7 än 10t 3b if arge-true then rsltztrue 

v0178ld a, ((argl)) s4a 13t 3b if arge-false then get argi and cpl it 
v0179cpl sim AE 1b rslt- .not. argi 

v0180ld ((rs]t))a "Aw 13t 3b 

v0181endtext 


v018ecale romptr=romptr+14 

v0183s.setime  (clktim:0, 32768:37, 166, 46, 12, 13, 183, 218) 

v0184com primitive to set channel 1 of ctc to some initial value 

v01l8Scom clktia is initial time decimal in milliseconds 

v0186com because channel 0 serves as the clock input to channel 1 

vO187com with 1 millisecond pulses there would be a latent delay in 

v0188com resetting channel 1 because new values for the downcounter 

v0189com are not transfered from the load register to the downcounter 
v0190com until a mew clock pulse is sensed therefore this primitive 
v0191com also short times the channel 0 clock to generate an output pulse such 
vO01S92com that channel 1 is immediately reset to the value passed through the 
vOl93com argument clktis 
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v0194if clock .ne. 0 skip? 
v0199calc clocks 

v0196incl h. clock (ss) 
vO197begin stext 


v01981d a,01110001b om 7t 2b counteritload lsb them msb*modeO*hex 
v0199out (Of3h),a ;3m (It 2b set mode control 

voe00ld hl,(clktim) 33m 10t 3b get time period 

woedild a, 1 sia AE 1b so Usb of clktia 

woedeout (0fih),a som {it eb load 1sb to ctc channel 1 

Old ah sie át íb msb of clktim 

woe04out (Ofih),a som {it 2b load asb to ctc channel | 

woe0Sld a,00110100b sem 7t 2b countrOtload lsb then msb+modeetbcd 
vO?06out (Of3h),a s3ma iit 2b set mode control 

v02071d a, Och sm 7t 2b sb of 0002 bed 

vOe08out (OPO), a som {it 2b Oeh in load reg lsb 

v02091d a, 00h ëm 7t 2b geb of ON bcd 

vOei0out (0fOh),a som II eb OOh in load ren eeh 

vOelild a,00110100b sem 7t eb contrO*load lsb then msb*mode?tbcd 
vOe1ldout (Of3h),a som  11t 2b eet mode control 

vOe13ld a, 00h (ën 7t 2b lsb of 2000 bed 

wel4out (0f0h),a som iit 2b OO in load reg lsb 

vOe1Sid a, 20h cu 7t eb msb of 2000 bcd 

vOei6out (0fOh), a som {it 2b 20h in load reg ssb 

v0217endtext 

vOe18calc romptr=roaptr+37 

v0219s. not (rsit, arg! :0, 8, 0, 8:7, 30, 9,8, 0,219, 227) 


vOec0com primitive to perform logical not, complement 

vOe2icom list=result, argument 1, argument 2 ::stor,time,ext,c, i, addrs 
vOee2begin stext 

v0223ld a, ({argi)) wg  13t — 3b rsit = not argi 


võ2ácpl sin 4t lb 

weesid ((rslt)),a 348  13t — 3b 

vO?e?e6endtext 

vOe27calc romptreromptr*7 

v0228s. eq (rslt, arg1, arge:0, 8, 0, 8, 0, 8: 16, 70, 20,13, 0, 028, 041) 


v0z29com primitive to perform comparision between 2 B-bit numbers 
woescos list=result,argusent 1, arguaent 2 s:stor, time, ext,c,i,addrs 
vOe3ibegin stext 

vOe3seld a, (ergi) "wg 13t — 3b if argi = arge then rslt=ffh 
vOes3id b, a sim 4t 1b 

voeseld a ((arg2)) ;4m 13t — 3b 

voe3ocp b in At 1b 

Wesbld a, 11111111b;2m 7t 2b 

v0e37 jr 2, $+3 An let eb result equal 


vOe3Bcpl sim At 1b result not equal 

woessid ((rslt)),a 34m 13t 3b 

vOe40endtext 

v0esicalc rouptr=romptr+i6 

wedes. It (rslt, argl, arge:0, 8, 0, 8, 0, 8:45, 118, 34, 29, 0, 242, 271) 


v0e4s3com primitive to perform comparision between 2 8-bit numbers 
vO0eAscom list-result,argument 1, argument 2 ::stor,time, ext,c,i,addrs 
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we4Sbegin stext 

voe46eld a,((argl)) ;4m i3t 3b if arg! lt arg? then rslt=ffh 
woes7ld b, a sia = At 1b b-argi 

woes8ld a, ((arg2)) Aw Lä 3b 

wessid c, a sia át 1b c=arge 

Wand a sia A 1b set sign flag of arge 
vOeSijp p,$t00dh sam 10t 3b Jump if arg? is positive 
voeSeld a, b sia AE 1b arge = - 

vam a lg At lb set sign flag of arg! 
wes4ld b, c sia = At 1b arg! .swap. arge 

Om Wëll An 10 — 3b argi = - arge = - comp backwards 
võ6ld a 0 ‘om Tt 2b argi = + arg = - false 
viir $+016h (A8 Lët 2 

voe5Bld a, b sia At 1b 

vOeS9and a sim At 1b set sign flag of argi 
Wëld a € ig át lb restore arg? to accumulator 
vOebl jp p,$007h ;3@æ — 10t 3b argi = + arge = + 

wOebeld a 11111111b;2m 7t eb arg! = - arg? * * true 
v0eb3jr $*00ch A8 — let 2 

vOebÁcp b sia ^t 1b 

vOeeold a,00000000b;cm = 7t 2b result false arg! )= arg? 
woebbyp z, $*7 33m 1% 3b 

v0067jp sm, $494 sam = 10t 3b 


vO?68cpl sim AC 1b result true arg! lt arge 
vô269ld ((rslt)) a "Aw 13t 3 

v0270endt ext 

vOe7icalc romptr=romptr+45 

v02725. ne (rslt, argl, arge:0, 6, 0, 8, 0, 8:16, 71, 20,13, 0, 272, 285) 


v0e7Scom primitive to perform comparision between 2 8-bit numbers 
vOe7^com list-result,argument 1, argument 2 ::stor,time,ext,c, i, addrs 
vOeTSbegin stext 

we/bld a,((argl)) ;4m 13t 3b if arg! = arge then rslt=ffh 
voe77ld b, a sia At 1b 

woe78ld a, ((arge)) 34m 13t 3b 

voe7T9cp b sim 4t 1b 

voeBOld a, 0 $m Tt eb 

vim z, $«-003h ;319 13t 2b result not equal 


3 
vOeBecpl ig At 1b result equal 
Wessld ((relt)),a ;4m 13t — 3b 
vO?BAendtext 
vOeBocalc romptr-romptr416 
we86s. ge (rslt, argl, arge:0, 8, 0, 8, 0, 8:42, 108, 31, 28, 0, 286, 314) 


v0e87com primitive to perform comparision between 2 68-bit numbers 
vOeBBcom list-result,argument 1, argument 2 ::stor,time,ext,c, i, addrs 
vO?B9begin stext 

vOe90ld a,((arg?)) An 13t — 3b if arg2 le argl then rslt=ffh 
wild b, a sin át 1b b=arge 

voeSeld a,((argl)) 34m 13t 3b 

veld c, a sim At 1b =argl 

vOeSAand a sia át 1b set sign flag of argi 

ve jp p,$+0Odh An 10t — 3b jump if arg! is positive 
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voe96ld a, b sim At 1b argi = - 

vOeg7and a sim At 1b set sign flag of arge 
vold b, c sie AE ib arge .swap. argi 

Wm s, $+0iih ;3m 10t — 3b arge = - argi = - comp backwards 
v0300ld a, 0 ën Tt eb arg? = + argi = - false 
wäit $*013h d —— 1e 2b 

vo3ocld a, b sie AE ib 

vO303and a sim At 1b set sign flag of arge 
vo30Mld a, c ig At 1b restore argi to accumulator 
v0O205)p p, $4007h äm II — 3b argg = + argl = + 

vO306ld a, ,11111111b;2m 7t 2b arge = - argi = + true 
v0307jr  $*009h sd Lët b 

vO3O8cp bd sim At ib 

võō3091d a, 11111111b;2m 7t eb result false arg? )= argi 
v0310)pp p $ sda 10) D 


wO3ilepl ig At 1b result true arge lt argi 
vo3teld ((rsit)),a 348 13 3 

v031 Jendtext 

vO31Ácalc romptr-roaptr*42 


vO319s.forend —— (indx,s1ab,e1ab:0,8:7, 27,8, 3, 0, 315, 304) 

vO3i6com primitive to end a for loop 

wW3i7com list=index,start label,end label 

v0318cale pop reps 

vO319begin stext 

vo3e0ld a,((indx)) ;4a. Lët 3b get value of index at top of loop 
vO3elinc a ig át 1b crank index 

wose2e(elab):jp (slab) ssa 10t 3b jump to for loop test 
vO3e3endtext 

vO3ácalc rouptr=roaptr+7 

v0325s. le (rslt, argi, arge:0, 8, 0, 8, 0, 8: 42, 108, 31, 28, 0, 325, 353) 
vO3OGcom primitive to perform comparision between 2 8-bit numbers 
v03s27com list-result,argument 1, argument 2 ::stor,time, ext, c, i, addrs 
vO3eBbegin stext 

vO3e9ld a, ((argi)) 34m 13t — 3b if argi le arge then rslt=ffh 
võ330ld b, a sin åt 1b b-argl 

wOS311d a, ((arge)) ;4m 13t — 3b 

vo3ield c, a sie At 1b c=arge 

vOi3djand à sia AE 1b set sign flag of arg 
vO334)p p,$*13 sm i 3b jump if arge is positive 
vo3331d a, b sim 4t 1b arge = - 

vO336and a ig AE 1b set sign flag of arg! 

v0337ld a, c sim At ib restore arg? to accumulator 
vO338jp m, $917 äu 10t 3b argi = - arge = - comp backwards 
vo339ld a, 0 som Tt eb argl = + arg2 = - false 


wäit $413 A8 Lët 2 

vo341ld a, b a At 1b 

vOs4eand a sie AE 1b set sign flag of arg! 
vos3ld a, c sia 4t 1b restore arg? to accumulator 
vO344)p p, $97 sda 1% 3b argi = + arge = + 


vO3AS1d a,liiiiiiib;dm 7t ch argi = - arge = + true 
vO346jr $49 si it æ 
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wos4/cp b sim át 
vo34Bld a,liiiiiiib;em 7t 


v03449jp p, $94 rä LO 
Wis dall cia AE 
vô3ŠIId ((rsit)),a;4  13t 


vwOS2endtext 
vO3S3calc romptr=roaptr+4e 
vO3o^s. add 


ib 
2b result false argi )= arge 
3b 
1b result true argi lt arg? 
ib 


(rs]t, argl, arg? :0,8, 0, 8, 0, 8:23, 78, 26, 14, 0, 354, 368) 


vO395com primitive to add argi and arge and store in rslt 
vO356com listzrslt,argl,arge:precisions:s, t, e, c, i, addr 


vO3S7Tbegin stext 

v0358ld à, ((argl)) 313t — 4m 3b 
v03591d hl,(arge) —;10t — 3m 3b 
vO360add a, (hl) $t ew ib 
v0361)p po ,$*13  ;3m 10¢ 3b 
v0362)p c ,$*8 e — 10t 3b 
vO363ld &{ 01111111b;283 7t eb 
v0364jp $*9 ;3 10t 3b 
v03651d a, 10000000b scm 7t 2b 


v03661d ((rslt)) a 
v0367endtext 

vO368calc roaptr-roeptr*23 
v0369s. 1t 


(Lä An 3b 


store argi in accumulator 

have hl point to arge byte 

add accumulator with arge 

if no overflow store result 

if carry the saxiaize minus rslt 
put in largest positive value 


put in largest negative value 
save result of add in rslt 


(rslt, argl, arge:0, 8, 0, 16,0, 16246, 131, 38, 26, 0, 369, 395) 


v0370com primitive to perform comparision between 2 16-bit numbers 
vO37lcom listzresult,argument 1, argument 2 ::stor, time, ext,c, i, addrs 


vO37ebegin stext 


wOS73ld de, ((argl)) ;6m 20t 4b if argl lt arg? then rslt-ffh dez(argl) 


v03741d hl,((arg2)) ;9m 16t 3b 


w375ld à, h sim At 1b 
vO37band a sim át ib 
v0377jp p %13 ¿3u 10t 3b 
v0378ld a, d sim 4t 1b 
vO379and a sim át 1b 
v0380)p m,$*18 :3m 10t 3b 
vO381ld a, 0 som 7t 2b 
vO382 jp bäi sda 10t 3b 
v0383ld a, d sim át 1b 
v0384and a sim 4t 1b 
wOs85jp p, $+8 sda 10t 3b 
vO3B6eld a, 11111111b;2m 7t eb 
v03873p $+14 A8 10t 3b 
vO388sbc hl,de Ae 15t 2b 
v03891d a, 00000000b;2m 7t b 
v0390jp 2z, $+7  ;3m 10t 3b 
vO391jp m $+4 — ;3a 10t 3b 
vO39ecpl sim 4t 1b 
vOS9SId ((rsit)),a "Ae 13t 3b 
vO394endtext 

vO399calc romptrsromptr*46 
v0396s. forcons 


hl=(arge) 


set sign flag of arge 

Jump if arge is positive 

arg = - 

set sign flag of argi 

arg] » - arg? - - cosp backwards 
argl = + arge = - false 


set sign flag of arg 
argi = + arge = + 
argi = - arge = + true 


result false argi )= arge 


result true arg] lt arge 


(indx, lwr, upr, slab, elab, val :0, 8, 0, 8, 0, 8:17, 70, 21, 6, 0, 396, 413) 


vO3g7com primitive to set up a loop with constant bounds 
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vO398com list=index, lower bound, upper bound, start label,end label 
vO399con max allowed value of indx,lwr,and,upr is 127 
v0400coB because the translator calls for 16 bit precision if a 
v0401com greater number is specified (val) is max loop count 
v0402cale push reps 

vO403calc reps- (val) 

vOS04begin stext 


vOS0S1d a, ((lwr)) (Ae 13t 3b lower bound of counter 
v0406(s1ab):ld ((indx)),a 34m 13t 3b update (indx) with latest value 
vO4071d a, ((upr) ) s4a 13t 3b 

v0408ld b,a sia át 1b 

v04091d a, ((indx)) s40 13t 3b 

v0410cp b sia At ib compare to upper limit 

v0411jp 2, (elab) +3 som 10t 3b jump out of loop on index=upr 
v04 leendtext 

w4iscalc rosptreromptr+!7 

v0414s. ge (rslt, argl, arge:0, 8, 0, 16, 0, 16:46, 118, 34, 26, 0, 414, 440) 


v04iScom prisitive to perform comparision between 2 16-bit numbers 
vO416com list=result, argument 1, argument 2 ::stor,time, ext, c, i, addrs 


v0417begin stext 

v04181ld de,((arge)) ;6m 20t 4b if arge leargi then rslt=ffh de=(arge) 
v04191d hl,((arg1)) ¿5u 16t 3b hl=(arg1) 
w4e0ld a, h sia At 1b 

vO42land a sia 4t 1b set sign flag of argl 


v04e2)p p,$*13 33m IO 3b jump if argi is positive 
w4esld a, d sim At 1b argi = - 

vwO4e4and a sin át 1b set sign flag of arg 
vO4e5 Jp m, $t18 sia — 100. 3b arge = - argl » - cowp backwards 
wéebld a, 0 en It eb arge = + argi = - false 
véi up Ach sau 10t 3b 

w4e8ld a, d sim 4t ib 

vo4eSand a sia AE 1b set sign flag of arge 
WAND jp p,$*8 3m 10t.— 3b arge = + argl = + 
VOSSI1d a, L111111ibscm 7t 2b arge = - argi = + true 
wOA32jp $+14 sam 10t 3b 

vO433sbc hl, de 4n 15t 2b 

vO4341d a,00000000b;2m 7t eb result false arge )= argl 
vA jp sm, $47 sam 10 3 

OAI m, $*4 "än Io Ah 


v043/cpl sin AE 1b result true arge It argi 
vOA36ld ((rslt)),a 34a 13t 3b 

vOA3Sendtext 

vO440calc roaptr=romptr+46 

vO44is. eq (rst, argi,arge:0, 8, 0, 16,0, 16:18, 91,26, 13, 0, 441, 454) 


vO44erom prigitive to perform comparision between 2 16-bit numbers 
vwO443com list-result,argument 1, argument 2 ::stor,time,ext, c, i, addrs 
v0444begin stext 

wO4451d de, ((argi)) s6m 20t 4b if argi = arge then rslt=ffh de=(argl) 
vO4461d hl, ((arge)) 35m 16t 3b hl=(arge) 
aalt Af? lg 4t 1b clear carry flag 

vO448sbc hl, de :4a 15t 2b 
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v04491d a 11111111b;2m 7t eb 
wär 2, $3 sam 12b 2b result equal 


v04Sicpl sim át 1b result not equal 

wild ((rslt)),a "Ae 13t 3b 

vOo4S3endtext 

vO4oÁcalc romptr-romptr*18 

Wie, le (rslt, argl,arge:0,8, 0, 16,0, 16:46, 118, 34, 26, 0, 455, 481) 


vO456com primitive to perform comparision between 2 16-bit numbers 
v0457com list=result, arguaent 1, argument 2 ::stor,time,ext,c, i, addrs 


vO4s58begin stext 

vO4591d de, ((argl)) ;6m 20t 4b if argl learge then rsit=ffh de=(arg!) 
v04601d hi, ((arge)) aw 16¢ 3b hl=(arge) 
vO46lld à, h (ig át 1b 

vO0462and a ig át 1b set sign flag of arge 


wO463)}p AE 18 10% 3b jump if arge is positive 
võś64ld a, d sin AE 1b arge = - 

vO465and a sim át 1b set sign flag of arg! 

v0466)p m,$*18 st 1% 3b argi 7 - arge = - comp backwards 
wild A 0 en 70 eb arg! = + arge = - false 


vO468)p $+24 ym 10t 3b 
v0469]d a, d sim 4t 1b 
vO470and a sim AE 1b set sign flag of argi 


v0471)p p,$*8 ssn 10t 3b argi = + arge = + 

wOS7eld a 11111111b;2m 7t eb arg! = - arge = + true 
vO473jp $*14 sam 10t 3b 

v0474sbe hl, de 34a 15t 2b 

vO47S1d a 00000000b;2m 7t 2b result false arg! gt arge 
v0476)p m, $«7  ;i 10% 3 

vO477 jp sm, $94 53 1% 3b 


Goal gll sim At 1b result true arg! le arge 
v04791d ((rsit)),a ; 4a 13¢ 3b 

vO480endtext 

vO48icalc roaptr=roaptr+46 

vO482s, gt (rslt, argl, arge:0, 8, 0, 16, 0, 16:46, 118, 34, 26, 0, 482, 508) 


vO483com primitive to perform comparision between 2 16-bit numbers 
vO4BÁcom list=result, argument 1, argument 2 ::stor, time, ext,c, i, addrs 
vO4BSbegin stext 

vO4861d de, ((arg?)) ;6m 20t 4b if arg? lt arg! then rslt=ffh de=(arge) 


v04871d hl, ((Karg1)) ;5m 16t 3b hl=(argl) 
vO48Bld a, h sim át 1b 
v0489and a cin 4t 1b set sign flag of argi 


v0490)p p, $13 sim IO 3b jump if argl is positive 
võá9ild à d sim A 1b argi = - 

wOASeand a sim At 1b set sign flag of arge 

v0493)p m,$*18 im 100. Ab arge = - arg! = - comp backwards 
v0494ld a, 0 sm 7t 2b arge = + argl = - false 

vn sted 33a 10t 3b 

v04961d a, d sim 4t 1b 

v0497and a sim At 1b set sign flag of arge 

v0498)p p, $8 sm — 10t — 3b arg? = + argl = + 

v04991d a,liiiiiiib;em 7t 2b arge = - arg! = + true 
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v0500)p $414 sam 10t 3b 

vOS01sbe hl, de she 15t 2b 

WÉI a 00000000b;2m 7t 2b result false argê gt argi 
WS03jp 2, $7 sma 10 33 

v0904jp m, $94 rä 100 3b 


voS0Scp1 sla 4t 1b result true arge le arg! 
voS06ld ((rs]t)),a äng  13t Sb 
vOS07endtext 


vo5S08calc romptrsromptr*46 

v0OS09s. sain (337,24, 7,21, 23, 909, Se) 

vO510com primitive to define controller setup and initialization 

vOSiicom list = empty : empty : storage, time, ext, calc, incl, addr 
vOSidcom the ros pointer is set to start at 16384 or 4000h since this 
vOSi3com is the beginning of user addressible memory in the pro-log 
v0514com it is called rom because ultimately the controller's operating 
vOSiScom program would be burned into rom the ram pointer starts 
vOSl6com at 32735 which is 32 bytes below the top of usable memory 
v0517com on the pro~log to allow a 32 byte stack the top of user 
v05lacom addressable semory on the pro-log is 32767 or 7fffh 

vOSi9com all initializations will be done through the use of global 
vOSeOcom variable initlk and linked labels 

voSelcom following the initializations program will jump to the top of the 
vOSe?com polling loop for the task contingency pairs. 

vOSe3com to allow the use of a debug prow developed at the naval 

vOSe4com postgraduate school electrical engineering department the 
vOSeScom starting location is changed to 4096 to allow a the system 
vOSeBcom to auto boot and to allow loading of memory from another 
vOSe7com computer via the dual uart card. the loading prom inhibits the 
vOSeücom use of the reset location because of the location of the code and 
vOSe9com the interrupt loactions used in a debugger for the prolog system 
vOS30calc romptre16384 

vOS31calc ramptrz3e739 


vOS33incl h.cardcage ( 

vOSdAbegin stext 

v0535; 

WA: Zilog 2-80 based system 

v0537; 

v0538; #idsect 

v0539; #idsect 

v0540; didsecd 

v0941; 

WË: 

v0343. 280 

vOo A asen 

voo4Sorg (ramptr) sran pointer is pointing to top of memory - stack 
vOS46Estak:defs 32 : Ach . define stack area 
WATorg — (romptr) sbegin code after reserved interrupt area 
vOŠáßcold:ld sp, @stak+Je sia 1Ot. 3b initialize stack pointer 
vooA9di ‘in AE 1b disable saskable interrupts 
v0590jp €i (initll) m it 3 do hardware initializations 
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vOSSlendt ext 

wWShecale roaptrerosptr+7 

vOs. add (rslt, argi,arge:0, 16, 0, 16, 0, 16:31, 126, 37, 18, 0, 553, 371) 
vocon primitive to add argi and arge and store in rsit 

OS begin stext 

VODGld hl, ((argl))sSea 16t 3b load argi in hl pair 

v0557ld be, ((arg2));6m ecOt Ab load arg? in be pair 

WÉI A 1 ig At 1b 


vOSadd a, c sim AE 1b add Isb 
wold l, a sim át 1b 
wild A h (lg At 1b 
vOS6eade a, b sim át 1b add asb 


vo63ld h, a sim A 1b 

v0564jp po ,$*15. 33m 10t 3b if no overflow store result 
v(565)p c ,$9 A8 10t 3b if carry the maximize sinus rsit 
vOoo66ld hl, 7fffh ;im 10t Sb put in largest positive value 
v0567)p $46 m 10t 3b 

v05681d hl, RM "NM II 3b put in largest negative value 
v05691d ((rslt)),hlji9e 16¢ 3b save result 

vOS70endtext 

vOS7icalc rouptr=romptr+3! 

vO57es.assign (var,data:0, 8, 0, 8:6, 26,8, 7,0, 572, 579) 

vOS73com primitive to assign a value of one variable to another variable 
vOSlAcom listzvar,data-var:var-prec, data- prec :stor, t ime, ext, calc, incl, addr 
vOS7obegin stext 

v0576ld a, ((data)) "ww  13t 3b assign (data) 

vOo77ld ((var)),a "wm Lët — 3b to (var) 
v05/bendtext 

vOS7S9calc . romptr -romptr + 6 

v05B0s. assign (var, data:0, 16, 0, 16:6, 32, 10, 7,0, 580, 587) 

vOS8icom primitive to assign a value of one variable to another variable 
vSsecos list=var, data-var:var-prec, dat a-prec:stor, time, ext, calc, incl, addr 
vOoSB3begin stext 

vOSB4Id hl, ((data)) scm — 16t Sb asSign (data) 

VOOSS1d ((var)) hl sSe  16t 3b to (var) 
voSB6endtext 

v0387calc romptr =romptr + 6 

v0588s. proc (nam 331, 4,1, 7,0, 588, 595) 

vO58S9com primitive to define procedure entry poinp 

vOS90com list-proc-name :ewpty:storage, t ise, ext, calc, incl, addr 

vOS9 begin stext 

vo; procedure (nam) 

v09938 (nag): nop sim At lb entry point for (nam) 

vOS34endtext 

voS9Scalc roaptreromptr*i 

v0596s. cons (nam, val, :0,8:1,0,0,6, 0, 596, 602) 

vo5g7com primitive to define data 

vOS98coa listzdata-name, value:value-prec, stor, time, ext ,c, i, addrs 
vOS99begin stext 

v0600 (nam):  defb (val) ;reserve one byte for data 

v060 lendtext 


vO6é0ecalc romptr=rosptr+! 

vO603s.tabent (fne,task ::10,51, 15, 10,0, 603, 613) 

v0604com primitive to add one entry to monitor table 

vw060Scom list= func-name, task name:empty:s,t,e,c, i, address 

vo606begin stext 

v0607call @{fnc) 35a 17t — 3b test for contingency (fnc) 

v0608]d a,((fnc)) vw Lat ` A get contingency result 

vO609cp 11111111b sim At 1b check if result true 

w0610call z,@(task) ;5a 17t 3b if true execute task 

v0611 sif not true get next tabent or tabend to loop 

v06 leendtext 

vO6l3calc romptreromptr*10 

vO614s. tabaccpe  (:: , , ,0,0,614, 625) 

vO6iScom this is a dumm primitive to allow compatibility with the 8080 
v0616com library. the functions that would be performed in this primitive 
vO617com are all located in s.tabent. this has the effect of eliminating 
v0618com intermediate table and increasing execution speed. if there are 
v0619c0m wide variations in contingency/task speeds more memory will be 
v0620com than in the 8080 primitive. note s.main is also changed because 
wOé2icom of the elimination of the intermediate table 

vOGe2com lists func-name, task name:empty:s,t,e,c, i, address 

wO623begin stext 

v0624  , this space is deliberately void. this is a dummy primitive. 
vwoé2Sendt ext 

v0626s. var (name:0, 8:0, 0, 0, 3, 0, 626, 634) 

v0627com primitive to define storage for B bit variable integer or logical 
vO6Geficon listzdata-nase, value:value-prec, stor, t ime, ext, c, i, addrs 

v06e9calc ramptreramptr - 1 


vOG3Obegin stext 

vOo631org (ramptr) $8 bit variable (name) in ram 
vO63e(name): defb O  ;Ow Ot 1b 

vO633org  (romptr) 

vO63Aendtext 

v0635s. sub (rslt, arg1, arge:0, 8, 0, 8, 0, 8:23, 87, 96, 14,0, 635, 649) 


v0636com primitive to subtract arg? from arg! and store in rslt 
vO637com lists rslt,argi,arge:precisions:s, t, e, c, 1,a 

v0638begin stext 

wO6391d a, ((argi)) s4m Lët 3b load argi in accumulator 
vO640ld hl, (arge) äm 10t 3b point hl to arg? 

vO6A1sub (hl) d 7t — 1b argl - arge 

v064Q0jp po ,$*13 — ;3«  10t 3b if no overflow store result 

Op c , $6 sam — 10t 3b if carry the maximize minus rslt 
võóáśld & 01111111b;2æ — 7t 2b put in largest positive value 
v05A3)p $+5 än 10t 3b 

vO6461d a, 10000000b sem — 7t ?b put in largest negative value 
v06A71d ((rslt)),a ;13t 4m 3b save result of add in rslt 
vO6ABendtext 

w0649calc romptr=roaptr+23 

v06S0s, sub (rslt, argi,arge:0, 16,0, 16, 0, 16:31, 126, 37, 19, 0, 650, 669) 
vOéSicom prisitive to subract arg2 from argi and store answer in rslt 
vO6Serom listerslt, arg!,arge:precisionsss, t,e,c, i, addr 
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vO6S3begin stext 

vO65Ald hl, ((argl)) vm — 160 — 3b load arg! in hl pair 
vVOBSSld bc, ((arge)) ;6m 20t 4b load arge in be pair 
v0656ld a 1 sle át ib 


v0657sub c sla AE 1b subrtract lsb 
v0658ld 1, a sla AE 1b 
vO6S91d a h sin A Ib 
vO660sbc a, b jm 4t 1b subtract esb 


vo66lld h, a sia At 1b 

v0662jp po ,$*15 ssa 10t 3b if no overflow store result 
v0663)p c ,$49 LAN LO 3b if carry the maximize minus rslt 
vO66Ald hl, 7fffh ;3m 10¢ 3b put in largest positive value 
vO6ES)p $+6 sm 10t 3b 

vO6661d hl, 8000h rm II 3b put in largest negative value 
v06671d ((rslt)),hl sSm 16t 3b save result 

vO6bBendtext 

vO0669calc roaptreromptr*3] 

v0670s. exitproc (nam ::1,10, 3,6,0, 670, 676) 

vO67icom primitive to close proc 

vO67ecom list-proc-nam, contnam:empty: storage, tise, ext,calc, incl, addr 
v0673begin stext 

v0674ret (A8 100. 1b return to monitor,exit (nam) 
v06 Sendtext 

v0676calc romptreroaptr*i 

v0677s. cons (nam, val, :0, 1632,0, 0, 6, 0,677, 683) 

v0678com primitive to define data for 16 bit integer 

v067Sc0m 1ist=data-name, value: value-prec, stor, tise, ext,c, i, addrs 
vO680bagin stext 

vO681 (nam): defw (val) ;define a two byte integer 


vob8cendtext 
vO683cale roaptreroaptr+e 
v068As. var (name 0, 16:0, 0,0, 3, 0, 684, 692) 


vO6BScom primitive to define storage for 16 bit variable integer 
v0686com | ist=data-name, value:value-prec, stor, time, ext,c, i, addrs 
vO687calc ramptr=ramptr - 2 


vO6BBbegin stext 

vO6BSorg  (ramptr) :16 bit variable (name) in ram 
võ6J0 (nase): defw 0  ;Om 0t 2b 

v0691org (romptr) 

v06Sendtext 

v0693s. 10oc (loc :11, 4, 1, 6, 0, 693, 699) 


v069Ácom primitive to define a lable (location) 
ven listzlabel-name :empty: storage,time,ext, calc, incl, addr 


vO696begin stext 

v0697 (loc): nop ; define location (loc) 
v069endtext 

v0699calc roaptrsromptr*i 

v0700s. end (1:3, 10, 3, B, 10, 700, 710) 


vO70lcom primitive to end software listing and complete implementation 
vO7OPcom listzempt y:eupty:stor, time, ext, calc, incl, addr 
vO7O3begin stext 
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VO704@i (initlk)s)p (spvsr ;3m 10t 3b initialization of hardware is complete 


v070$ : start top of sain monitor loop 
v0706end send of software listing ready for assembly 
wW07endt ext 

v0O706cale romptreroaptr+3 


vO709com put in memory needed for implementation in ram and ros 

v0710incl h.wemory — (::) 

v0711s. jmpf (val, loc 30,8: 8, 30,4, 8, 0, 711, 719) 

v071ecom primitive to branch on false condition 

vO713com list-value, jump-loc: value-prec, :storage, t ime, ext, calc, incl, addr 
vO714begin stext 

VO7ISId a, ({val)) 340 13¢ 3b branch to (loc) if (val) is true 


v0716cp 0 som 7t 2b 
v0717)p z, (loc) ;3m 10t 3b 
vO071Bendtext 


v0719calc romptrsrosptr*8 

vO720s. monitor — (::1,4,1,7,0,700, 781) 

vO/2icom primitive to define p? monitor as controller supervisor 
vO/e2com list s» ewpty:empty: storage, time, ext, calc, int, addr 
wWiesbegin stext 


w7e4: zmonitor section- 
vO/eS@spvar snop sim 4t 1b sark top of the polling loop 
vO72bendtext 


wOi2icalc roaptreroaptr+1 

vOTeBs.tabend (3: 3, 10,3,6,0, 728, 734) 

vO7e9com subroutine to define end of monitor table 

vO730com listz empty:espty:s, t, e, c, i, addr) 

vOr3ibegin stext 

vim @spvsr :9o to the top of the polling loop of monitor table 
vO7T33Jendtext 

vO73Ácalc romptreromptr43 

v0735s. mult (rslt, argi, arge:0, 8, 0, 8, 0, 8:35, 528, 138, 22, 0, 735, 757) 
vO736com binary multiplication primitive 

wO7S7beqin stext 


vO73Bld a,((argl)) ;2 13t put argil ine 
v07391d e, a ig A 

vO7401d =a, ((arge))s3e 2 13t load arge 
v0741ld hl, 0 sim 10t clear rsit 


vwO7/4eld d, h sin át 
v0743Md b, 7 en 7t 
vO744rra ig At 
wO7/45 jp nc, $+4 :im — 10t 
v0746add hl, de sm lit 


clear d for shifts 
set counter to 7bits 


v0747sla e cp ` Bt 
v0748rl d som Bt 
v0O749djnz $-9 AN 13t #7 +2m Bt on last time 
vO7S0rra in át 
v0791jp nc, $46 Län 10t 
vO7Sdand a olin AE 


vO7S3sbc hl, de s4 15t 
WMAld a, 1 sin 4t 


Se DS RG GE Ge Sc SS 


truncate result to 8 bits 
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wild (iraltiia "Aw Lët — 3b save result 

vO7Sbendtext 

vO7S7calc romptr=romptr+35 

vie, elt (rslt, argi, arge:0, 16, 0, 8, 0, 8:34, 527, 138, 21, 0, 758, 779) 
v0759com multiply 2 8 bit number and get 16 bit result 

vO?60begin stext 


vO76lld a ,((argl));Ja Lët put argi ine 
vô76ld e, a sim At 

v0763ld a, ({arge))s3m 13t load arge 
vO7641d hil, O s% 10t clear rs]t 


clear d for shifts 
set counter to 7bits 


vO765ld d, h sim 4t 
v0766ld b, 7 ep 7t 
vO767rra sin AE 
v0768jp nec, $+ wi 10% 
v076Sadd hl, de yan lit 


-a a A 


v0770sla e m Bt 

vô77irl d (en ` Bt 

vO77ed nz $-9 :Aaà 13t #7 +2m Dt on last tise 
vo77irra sin 4t 

v0774)p nc, $36 än 10 

wii fam a ig AE 

vO776sbe hl, de T St 

v07771d ((rslt)),hl;m 16t save result 
vO77Bendtext 

v0779calc roaptrsromptr+34 


v0780s. mult (rs1t, arg1 ,arge:0, 16, 0, 16, 0, 16:39, 1105, 289, 22, 0, 780, 802) 
v07B1com multiply 2 16 bit numbers and get 16 bit result 
vO7Bebegin stext 


v0783ld de,((argl));6e eot put argl in de 


vO7B41d be, ({arge)) 36m X eot load arge 

vO7Hld a, b cin AE split arge to akc 
v07@ld hl, 0 t NE. clear rsit 

v0787]]d b, 19d ;œ% 7t set counter to 7bits 
v0786rra sim A 

v0789rr c en Bt 


v0790jp nc, $4 (än 10t 
v07391add hl, de T NES 


vO07T9esla e (dp ` D 
vO7TS3r1 d Lë Bt 
v0794d)n2 $-00bh — ;3a 13t #7 ren Bt on last time 
v07Sirra sin át 
vier c en 8t 
vO797)p nc, $6 rä 10t 
vO796and a (lg A 


vO799sbc hl, de sm St 
voBo0ld ((rslt)),hl;9& 16t 
v080lendtext 

vOB0?calc romptrzromptr39 
v08035s. whilestart (top, 1pct ::1,4, 1,6, 0, 803, 814) 

vOB04com primitive to establish label for top of a while-do loop 
vOB0Scom condition to be tested immediately follows this label 


Secer RITES ELGE 


save result 
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v080Gcom reps is global variable used to account for timing during 
vOBO7com wultiple loops 

vOB0Bcom lpct is max loop count supplied by designer 

vOBOScalc push reps 

vO810calce repsz (1pct) 

vO6libegin stext 

v0812 (top) :nop sis át 1b top of while-do-loop 

v061 3endtext 

vO814calc romptr-romptr41 

v0815s. whilecon  (rs1t,bot :0,8:7,27,8,8,0,815, 823) 

v0816com primitive to decide whether to jump out of while-do loop based 
vO0817com on boolean value passed to rslt bot is loop bottom label 


vOBiBbegin stext 
v08191d a, ((rs1t)) 34m Lt 3b get boolean value 
vOBeOand a sie AE 1b check if true(ffh) or. falseto0Oh) 


vO0821jp z, bot) *3 än 10t — 3b if false jump out of while-do loop 
vOSP2endtext 

v0G23calc romptreromptr*7 

vOB2 4s. whend (top, bot : : 3, 10, 3, 4, 0, 824, B32) 

vO8eScom primitive to mark end of statements to be executed in a while- 
vOB?5com do-100p global variable reps is reset to value existing 
vOG27com before for-loop started 

v0628calc pop reps 

vOBle9begin stext 

vOB30(bot):jp (top)  ;3- 10t — 3b jump to top of while-do loop 
v083iendtext 

vo83ecalc romptreromptr*3 

vOB33s. ne (rslt, argi, arge:0, 8, 0, 16,0, 16:18, 91,26, 13, 0, 833, 846) 
vw0834com primitive to perform comparision between 2 16-bit numbers 
wO8SScom list=result, argument 1, argument 2 ::stor, time, ext,c, i, addrs 


v08Sébegin stext 

vO08371d de, ((argi)) ;6m 20t 4b if argi = arge then rslt=ffh de=(arg!) 
vO8381d hl, ((arg?)) ;5m 16t 3b hl=(arg2) 
wO833and a sim At 1b reset carry flag 

v0640sbe hl, de 34m 15t 2b 

võB4ild a,0 som 7t Ob 

är z, $43 Au 12t 2b result equal 

vo843cpl sis át 1b result not equal 

vOoMAld ((rslt)),à 34m 13t 3b 

vO Sendt ext 


vOB46calc romptrzromptr418 

vOBA7h. processor. (:: , , ,0,3,047,871) 
votMBcon primitive to include 2-80 cpu board 4 mhz 
wale slot = slot + 1 

vOBS0incl h.tcardcage (::) 

vOeSibegin htext 

vO&S2 put 2-80 cpu board in slot (slot) 
v0853 ss wewex high 

wë ` set jumpers in the following pattern 
WO jumper pattern 

vo856 we 010 
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v0857 "3 001 
v0858 ei 010 
vo859 wi i 
v0860 wi 001 
wä) w7 01 
v0862 wh 110 
v0863 w9 1111 
0864 wid 1 
véi wie 101010 
-0866 wis 10 
v0867 wi4 10 
v0868 wid 01 


v0869 note numbering is from left to right and from top to bottom. 
v0870 address space 0000-7fff 

v087 tendtext 

vOg7eh.cardcage  (:: , , ,0,0,872,876) 

v0873com primitive to include card cage and power supply for controller 
v0674begin htext 

v0879 connect powersupply to card cage 

v087Gendtext 

v0877h.memory — (:: , , ,0,3,877,891) 

v0878com primitive to include required mesory 

vO879calc slot = slot + 1 

wën) h.tcardcage (::) 

v088lif romptr .1t. ramptr skip 5 

vO8Bebegin htext 

v0883 the program space and the variable space have colided 
v0884 you do not have enough memory to execute your program 
vOBB5 — your mesory is limited to 16k 

vO8B6endtext 

vO687begin htext 

v0888 put 16k memory board in slot (slot) 

v0889 set jumpers in the following pattern 

vO0890 Jumper pattern 


wë) wi 11111111 

v089e ve 10 

v0893 us 0 

v0894 * 01 

v0895 e 1 

v0896 address range for card is 4000-7fff 
v06S7endtext 


v0898h. tcardcage (:: , , ,0,0,898, 904) 

vO0899com primitive to limit the number of slots in card cage to 8 
v0900if slot .le. 8 skip 4 

vO901begin htext 

v0908 you have exceeded the maximus number of allowable slots in the 
v0903 card cage. it is limited to 4, 

wO94endt ext 

v0900s.divide (rslt, argl, arge:0, 8, 0, 8, 0, 8:56, 504, 129, 41, 0, 905, 946) 
vO%6com routine to divide argi by arge and store in rslt 

v0907com taken from zaks p 137 
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vO908begin stext 
v09091d a, ((argi) mm (3 b3 get dividend 


vOSi0and a sim AE ib 
v09111d h,0 en — 7t 2b 
v0912jp p, $+7 san It ` Ab 
W091 3cp1 sim 4t 1b 
vO914ine a sin At ib 


v09151d h, 080h pn — 7 eb 
v0916ld e, a so tá bi 
v09171d a, ((argg) ;má DA b3 get divisor 


wël Bang à sim AE ib 
v0919)p p, $*0bh rä Im 3b 
v0320cp1 sim AE ib 
wkl a sin 4t 1b 


vold c, a sim A ib 
voSe3ld a, 080h ew 7t eb 
v0S24x0r h sim A ib 
wo3e5ld h, a sm AE 1b 
vo9e6ld a, c sin Mt ib 
wWSe7ld c, a mi DA bi 


vOS28xor A ml EA bi Clear accumulator 
vogegld b, 8 sw) — t7 be set loop counter 
voS30r] e s o t8 be rotate 

vOo331rla mi EA bi 

v093esub € mi Eé bi trial subtract 


v3ir nc ,83 3 tie bW subtract ok 
v033Aadd a, c mi EA bi restore accum,set cy 
vim? $-7 3 — ti3 æ me t8 on last loop 
v0936ld b, a sw] tá bi put remainder in b 
v0937ld a, e smi — tá bi get quitent 


v0936r la mi EA bi shift in last result bit 
vO0S39cpl mi EA bi complement bits 

vO Obit 7, h sous eb 

v0941jp 2,945 Län 10 3b 

wO942rp! sim AE ib 

voine a in A ib 


vOS4e4ld ((rslt)),a mm  ti3 bà store quotient in rslt 
vO94Sendtext 

vOS46calc romptr*romptr*56 

v0947s. divide — (rslt,argi, arg2:0, 16, 0, 16,0, 16:80, 1465, 376,57,0, 947, 1004) 
vO948com primitive to divide argi by arg? and store in rsit 

vO94Scon listzrslt, argl , arge :precisions:s, t, e, c, i, addr 


vegan stet 

WSild hl, ((argi))sSm — 16t 3b load argi in hl pair 
vogSehit 7, h som Bt eb 

v09531d b,O Om 7t ch 

v095A)p 2, $*12 ssa 100. 3b 

v09o31d a h cia AE 1b 

vOHeécp! sin 4t ib 

v09571d h, a sim At 1b 

v0958ld a, 1 sim 4t ib 
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vgl sla AE 1b 
v09601d 1, a sla A 1b 
wël hl sia 6t 1b 
vO9é2ld b, 080h gm — 7 eb 
vO963ld de, ((arg?);6a& edt 4b load arge in bc pair 
vO9eAbit 7, d On Bt eb 


vO965ld a, 0 : A eb 

v0966)p 2, $*1e Än I Ab 

v09671d a, d sia AE Ib 
v0968cp1 sm. AR lb 

v09631d d, a sia AE Ib 

wo970ld a, e sia AE 1b 
v0971cpl sim AE 1b 

v09721d e, a sian AE 1b 
v0973ine de sim 6t Ib 

v09741d a, 080h seu — X eb 
vOgTSxor b sia AE 1b 

vO0g76ex af,af' sla A 1b save sign of rslt 
v09771d c,1 sin = At lb 

v0978ld a,h sla AE 1b 

v09791d b, 16d ; 7t eb 

v09801d hl, 0 : 10t 3b 

v0981rl c m Bt eb loop 
vo9Ber1a sla AE 1b 
vO983adc hl, hl ` It ` eb 
viääeb: hl, de ám 15t 2b 

v0983jr nc, $33 "A let æ sub was ok 


v0986add hl, de sæ liit Ip restore accumulator 


vO987ccf jm — At 1b calc result bit 
v0988djnz $-11 : lit eb em Dt on =0 
v0989rl c m 8t eb 

v0990r la sla AE 1b 


wo99ild h, à (lg AE Ib 
weld 1l, c sm A ]b 
vO993ex af,af' sia A 1b restore sign of rslt 
v0994jp p, $+10 :3a — 10t — 3b 


v09951d a, h ig AE Ib 

v0996cp1 sia 4t lb 

v09971d h, a sla A 1b 

v09981d a, 1 sim AE lb 

v0999cp1 (ig AE 1b 

vi000ld 1, a sin AE 1b 

viO01inc hl sla 6t 1b 

vl002ld ((rslt)),hlsSe 16t 3b save result 
v]003endtext 


v1004cale romptr=romptr+80 
v1008h. clock (ss, 4 40,0, 1005, 1028) 


vl006com primitive to create an clock in the ctc chip of the 280 cpu board 
v1007begin htext 

v1008 these additional connections on the cpu board are required to 
v1009 utilize 2 of the 3 channels of the ctc chip the ctc chip 


100 


v1010 


operates at 2 whz vice 4 mhz for the z-80a cpu the following 


v1011 jumpers will cause channel O to be served by the internal Owi 
vl0ie clock and channel 1 to be served by the output from channel 0 

v1013 thus for example if channel 0 is set up to generate a pulse 

vidl4s every 2000 internal clock cycles and this pulse becomes the input 
UU clock signal to channel 1 then the net result is channel 1 is a 
v1016 downcounter supplied with a ikhz clock signal 

v1017 comect ji-20 to ji-i2 this connects channel O output to channel 1 
v1018 input clock 

v1019 ji-15 to 31-16 — gate of channel 0 tied to ground so down 
vid20 counter will work 

vie) Ji-9 to 31-10 gate of channel i tied to ground so dom 
v1022 counter will work 

vi0e3 connect on wie 

vides i-2 internal clock signal supplied to channel 2 
vides 7-8 external clock signal supplied to channel 1 
vi 026 (actually the output from channel 0) 

v1027 9-10 internal clock signal supplied to channel 0 
viOeBendtext 


vi0eSh. keydisplay(s: , , ,6,8,1029, 1048) 

vid30com primitive to add the 7303 keyboard display card this primitive 
vidSicom is called by outputport and inputport the keyboard and 
vidSecom digital display features are not used only the rocker swithces 
vid33com are used to control input and the leds to display output 

viO3Aif kaybrd .eq. 1 skip 14 

vl0SScalc keybrd = 1 

vl03écale slot = slot + i 

vi037inel h. teardeage (::) 


vid3abegin htext 

vi033 put first prolog std 7303 keyboard/display card in slot (slot) 
vi040 connect the following jumper pins 
vioi x6 

vide ya 

v1043 20 

v1044 2i 

vi045 disconnect the following jumper pins 
v1046 all others 

vi047 address space 11000000, 11000001 
vi048endtext 


v1049s. fixedwait (tiwe:0, 1275315, -5, 18, 6, 0, 1049, 1068) 

vidS0cos routine to delay a fixed period of time in increments of Ses 
vi0Sicos max allowed input value is 127Sas 

vi0Se2com as currently coded there say be up to a 10% error in actual 
viü 3com elapsed time when compared to the input value 

vidShattr tise =(time) #4000 

vidSScale sertch =(tise) /5 


vidiébegin stext 


v1057, 


v1058; wait (time) as (for z80a 4 mhz clock) 


v1059; 


v10601d b, (scrtch) ew 7t Oh set value of outer loop counter 
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v10611d de, -1 som 10t 3b value by which inner loop is decresmtd 


v106eld hl, 800 An 10t 3b starting couter value for inner loop 
v1063add hi, de :d — 1it 1b decrement inner loop 

v1064nop sia 4t 1b dummy inst. to make inner loop -25t 
v1063)p c, $-2 sau 10t 3b jump to of inner loop until hl=0 
v1066djnz $-8 :dme 13t8 2b decresent outer loop counter until b=0 
v1 06 7endtext 


vi 068calc rosptr=romptr + 15 

v1069s. issuevent (outna:0, 8:5, 24, 7,8, 9, 1069, 1077) 

vl070com outputs contents of outre to data port of prolog 7303 keyboard 
vl07icom card data port is dOh value of data sent can be seen by 
vi07erom examiniag & leds on 7303 card, one led for each of 8 bits 
v1073begin stext 

vi0741d a,((outrm)) ;4m 13t 3b get contents of output variable 
v107Sout (0d0h),a som 11¢ 2b output to data port of 7303 card 

vl 076endtext 

vl077calc roagtr=roaptr + 5 

v1078s. out put port (outnm, tech:0, 8:6, 29, 8, 14, 13, 1078, 1103) 

vi079com tech is a hold-over from the original csde design 

viO080com it is not used here because the output type of signal 

viO08icom is predetersined by the hardware available, prolog boards 
vi08ecom keybrd is a boolean flag indicating if the prolog 7303 board has 
vl083com been included already this primitive sets up the 7303 card 
vi0@4com so that contents of outnm will be output to the single data 
vl0&Scom port, d0h to do this the variable must first be created then a 
vi086com control code sent to port dih to write inhibit the digit displays 
vi087com any data value that is output will be seen only on the 8 leds 
viO088cos ons! and offzO for each of 8 bits of the output data value 
vl089com the leds are cleared first in preparation for display of new data 
v1090if keybrd .ne. O skip 2 

vi09lincl h. keydisplay(::) 

vi0Secalc keybrd = keybrd + 1 

vl093calc ramptr = ramptr - 1 

vl094begin stext 

vl095;3sets up 7303 card so that the contents of (outrm) will be output 
vi0960rg (ramptr) 

vi097 (outra): defb 0 

v10960rg (romptr) 

v10991d a, 0 (a 7t Pb write inhibit the alphanumeric display 
vllt (Odih),a 3 3a 11t 2b send it to control port 

vil0lout (0d0h),a ; 3m ilt 2b clear all leds 

vitOOsndtext 

vl103eale romptr - roaptr * 6 

v1104s. inputport (innam, tech:0,8:0, 0, 0, 13, 12, 1104, 1125) 

vil@Scom tech is a hold-over frow the original csde design it is not used 
vii06com here because the input type of signal is predetermined by the 
vl107com 7303 keyboard/display board ie, a single 8-bit data port since 
v110@com no control code is required, only the input storage location is 
vii0S9com created by thís primitive when more complex i/o hardware is 
vl110com available this primitive will require modification 

viiiicom inmam is where the value available at the single data port, dOh, 
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villdcom will be latched 

viiid3com keybrd is a boolean flag indicating if the prolog 7303 card has 
viil4com already been included 

viliSif keybrd .ne. 0 skip 2 

viii6incl h. keydisplay(::) 

vill7eale keybrd = keyord +1 

vill6cale ramptr = ramptr -1 

vil19begin stext 

vil20; sets up 7303 card so that value at data port can be 

v1121; read into (innam) by the primitive s.sensecond 

vii?2org (ramptr) 

vil23 (innam): defb 0 

viledorg (rompir) 

vi igSendtenxt 

vileés. sensecond (innam:0, 8:56, 129, 37, 44, 0, 1126, 1170) 

viie7com purpose is to demonstrate ability to input data 

viiefcom innam is the variable that would normally be the depository 
vii?9com of the value present at the single data port , d0h, on the 
vii30com 7303 keyboard card for demonstration purposes only the 2 
vii3icom rocker switches on the 7303 card are used to control input 
vii3écom and since they only control bits 6 and 7 of the 8 bit(0-7) 
vil33com data port, a small conversion routine has been added such that 
vil34com 1 of 4 values will be placed in innam depending on the 
vll3Scom positions of the 2 rocker switches the following table 


viisécom applies se (left) s] (right) value put in innam 
viiJ7con on(up) on 04h 
vi138com on off (down) Osh 
vi139coa off on Ozh 
v1140com off off 01h 


vii4icom this allows an input choice of 4 differnt values via the 
vii4écom pro-log rocker switches on the 7303 keyboard display card 


vil43begin stext 

v1144in a, (0d0h) ; Aa iit eb data port read for input 
v11451d d,à ; in AE 1b save value in b for later 
vii46and 11000000b ; Om 74 2b mask for both switches on 
vil47ep 11000000b ; 2s 7t 2b check for both switches on 
v11487p 2,$*27 s dm 1% 3b if both on then jump down 
v11491d a,b ; la AE 1b get original value again 
vilSdand 10000000b Om 7t. 2b mask for left switch on only 
viiSicp 10000000b y e JE Pb check for left switch on only 
v1158)p 2,$*27 ; æ 10t 3b. if left on then jump dom 
v11931d a,b 3 im A 1b get original value again 
vilS4and 01000000b 3 Om 7t 2b mask for right switch on only 
vtiS5cp 01000000 ; o8. RK Op check for rt switch on only 
vi156G)p 2, $27 ( A 100 3b. if rt on then jump dom 
vii371d &1 3 em 7t 2b both switches sust be off 
VIISBId (Cinnam)),a ; 4m Lët 3b both off, (inmam) = Oih 
vm $*24 ; Aa Io 3b jump to end of routine 
v11601d a, 4 Om JE b both switches sust be on 
Vil611d ((innam)),a 3 Aw Lët 3b both on, (innam) = O4h 
vilé2jp $+16 3 Aa ID 30 jump to end of routine 
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v11631ld a,3 ; em 7t b left switch on only 

vii&Ald ((imagm),a ; Aw 13t 3b. left on, (innam) = 03h 

vilejp $6 A 106 3 jump to end of routine 

v11661d a,2 3; &@ 7t 2 right switch on only 

v11671d ((innam)),a 3 Aw Lët 35. right on, (innam) = Och 
v1168nop ; le AM tb end of input conversion routine 
v116Sendtext 


vi170cale rosptreromptr + 56 

v1171s. stboolwait (top, saxta::1,-5,1,10,6,1171,1181) 

vil7écom primitive to mark top of boolean wait structure 

vll73com top is label for beginning of boolean wait 

vii74com maxim is max time in milliseconds allowed to check conditions 
vii7Scom between s.stboolwait and s.boolwait 

vii76attr tiae Gaxta) H000 

vii77call s.setime — (axtm :) 

vil78begin stext 

v1179 (top) :nop ig At 1b mark top of boolean wait loop 
vl 1&endtext 

vi l8icale roaptr=rosptr+! 

v1182s.boolwait (rslt, top, bot:0, 8:22, 93, 26, 23, 0, 1182, 1205) 

v1183com primitive to check for boolean condition(if true then exit) and 
vl184com read current time from channel 1 of ctc since clock 
vil@Scom continues to downcount past 0000h time interval expiration 

vi 186com is determined by checking the sign bit of the msb of the 2 byte 
vii87com clock tise if it is 1 then time has expired and the boolean 
v1188com structure is exited rsit is boolean value passed from 
vii89com condition being checked top and bot are labels 

vl190begin stext 

v11911d a, ((rs1t)) ;ám  l3t 3b get boolean value 

vilSeand a sim At 1b check if true(ffh) or false(00h) 


v1193jp nz, (bot) *3 A8 10t 3b if true jump out 

v11941d a,01000001b cn 7t b channell*latched readtmodeO-*hex 
vii95out (Ofzh),a (A8 lit 2b send to control code port 

v1196in a, (Ofih) soa lit 2b read lsb 

vi197id l,a sim AE 1b save lsb 

vli98in a, (Of1h) som — lit 2b read msb 

v118981d h,a sim AE 1b save msb 

vie00bit 7,h cp Bt 2b check if counter value has passed 
v120! : zero ie, become negative 


vie02(50t):jp z, (top  ;3m 10t 3b if counter value still positive 
v1203 : ie, bit 7 = 0 then go to top 
vi2d4endtext 

vie0Scale romptr=romptr+22 

vi206s. call (nam ::3,17,9, 7,0, 1906, 1213) 

v1207com primitive to call another procedure 

vie08com 1ist=proc-namse:empty:storage, time, ext, calc, incl, addr 
vic0Sbegin stext 

vici0s call procedure (nam) 

viciicall @(nam) ‘ecm i7t 3b 

vi2i2endtext 

vidl3cale romptr=romptr+3 
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vi2l4s, in (2s 5 4 9 9), 1214, 1223) 

vi2iScom primitive to set the tised block flag 

vizl6com it is modeled exactly after ltcol ross’s s.in in the 8080 
vi2l7com realization volumn and is included for completeness 

vi218com it does not conform to carson's translator output format 
vi?i9com and is not usable in its present fora 

v1220com the global variable tmblck is supposed to be a flag to indicate 
vid2icom to the csde program that the following primitives constitute 
vieeerom a timed block within a task 

vie23calc tab] ck=! 

vie2ss. ni (2: , 4 ,:,0, 1805, 1227) 

vieeScom primitive to clear the timed block flag 

v1226com same comments as in s.in apply 

vie2icale tmblck=0 

v1228h. uart (st, 5 40,0, 1228, 1242) 

viee3begin htext 

vie30 this is a dummy primitive to remind you to put in the dual uart card 
vi23i if you wish to use the nps loading rom. the require setting are as 
vi232 follows. 

vie33 set jumpers in the following pattern 

v1234 jumper pattern 


v1235 wi 01 

v1236 we 01 

v1237 "3 10 

vi238 SX 0001 
v1239 sy 00001000 
v1240 address space e0 thru e7 
vi2álendtext 


vi24ecom this has to be the last line 
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APPENDIX F 


WORKING CSDL TEST PROGRAN 


This appendix contains a problem to test the primitives 
that generate a while-do loop. This problem was completely 
run through CSDE, from CSDL problem statement to operating 
program on the Pro-log microcomputer. The files listed 
below are unedited except for the primitive list, where the 
value of max loop count was moved from ’s.whilecon’ to 
’s.whilestart’. They are, in order, the CSDL problem, 
primitive list, application timing file, symbol table, CSDE 
software output, CSDE hardware output, and CSDE debug file. 


CSDL_ Problem 


IDENTIFICATION 
DESIGNER : “BOB VOGEL” 
DATE : "02-07-85" 
PROJECT : “WHILE DO CONTRUCT TEST” 


DESIGN CRITERIA 
METRIC FIRST; 
VOLUMES 1; 
MONITORS 13 


ENVIRONMENT 
INPUT: ARG1,8,TTL; END INPUT; 


OUTPUT: LIGHT,8,TTL; END OUTPUT; 


ARITHMETIC: EACH1,8; EACHS,8; 
END ARITHMETIC; 


PROCEDURES 


FUNCTION EACH1: 

BINARY,1; 

EACH1: =O; 

SENSE CARG1);3 

IF ARG1<=2 THEN EACH1:=-1; END IF; 
END EACH1; 
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00000 00000 OO 


FUNCTION EACHS: 

BINARY,1; 

EACHS:=0; 

SENSE (ARG1); 

IF ARG1<=4 THEN EACHS:=-1; END IF; 
END EACHS; 


TASK ONLITA: 
LIGHT: =1:3 
WHILE LIGHT <= 7 : 4 DO 
ISSUE (LIGHT): 
LIGHT:=LIGHT * 2: 
WAIT 250MS: 
END WHILE: 
END ONLITA; 


TASK OFFLT; 
LIGHT:=O; ISSUE (LIGHT); 
WAIT SOOMS; 

END OFFLT; 


CONTINGENCY LIST 
WHEN EACH1 : 1600MS DO ONLITA; 


WHEN EACHS 1600MS DO OFFLT: 
END 
Primitive list 
1t.generated for: SYSTEM OO 68 0 00 t e oe oe OO 
28.MAIN CB 
3d:FIRST ; 1s 14 


4s.inputport (ARG1,TTL:8) 
58 outputport (LIGHT, TTL: 8) 


6s5.var (EACH1:8,0) 

758.var (EACHS:8,0) 

8t.generated for: EACH1 Seegeegeeggegeggeegee 
9s.proc (CEACH1:2) 

108.assign CEACH1 ,@C01:1,8) 

lis.sensecond (ARG1:8) 

12s.1e (9TO1,ARG1,0CO2:8,8,8) 

13s.japf (9TO1,901:8) 

14s.sub (8$8TO1,9C01,0C03:8,8,8) 

15s.assign (EACH1,0T01:1,8) 

16s.1loc (901:2) 

17s.exitproc  (EACH1:) 

18t.generated for: EACHS oat 00 ab 08 OE OF OE OE OF OF OE OF OF ot 
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19s.proc 

20s .assign 
21s.sensecond 
228.le 

238. Jmpf 
248 . sub 
25s.assign 
268.1oc 
278.exitproc 
28t.generated 
298.proc 
3Os.assign 


(EACHS;) 

CEACHS ,@C01:1,8) 
(ARG1:8) 
(G9TO1,ARG1,90C04:8,8,8) 
(Q9TO1,Q02:8) 
(9T01,0C01,0C03:8,8,8) 
(EACHS , @T01:1,8) 
(602: ) 

(EACHS:) 

for: ONLITA 

(ONLITA:) 
(LIGHT,9C03:8,8) 


315.whilestart(9QO3,4:) 


32s.1e 
33s.whilecon 
34s.issuevent 
35s.add 

36a .assign 
37s.fixedwait 
388 .whend 
39s.exitproc 
4Ot.generated 
41s.proc 
42s.2a88ign 
43e.issuevent 
44e.fixedwait 
45s.exitproc 
46t.generated 
478.cons 
48s5.cons 
495.cons 
90s$.cons 
91s.cons 
9258.v8r 


1 :EACHI1 
2 :EACHS 


(QTO1,LIGHT,QCOS5:8,8,8) 


(QTO1,004:8) 
(LIGHT:8) 
(@TO1,LIGHT,@C02:8,8,8) 
(LIGHT,90TO1:8,8) 
(250) 
(603 ,@04:) 
CONLITAS ) 
for: OFFLT ARES EERE E EEE EY 
(OFFLT?) 
(LIGHT,0CO1:8,8) 
(LIGHT:8) 
(500) 
(OFFLT:) 
for: SYSTEM TRE RESEEEES ESE RRS SE 
(9C01,0:8) 
(@C02,2:8) 
(QCO3,1:8) 
(9CO4,4:8) 
(Q4C05,7:8) 
(9TO1:8) 
Applicatiion timing file 
sONLITA :MS:1600, O, O, O, O 
sOFFLT :M3:1600, O, O, O, O 
Symbol table 
S. INPUTPORT(ARG1,TTL:8) 
S.OUTPUTPORT(LIGHT,TTL:8) 
S.VARIABLE (CEACH1:8,0) 
S.VARIABLE (CEACHS:8,0) 
S.LOC (901:) 
S.LOC (9022) 
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S.CONS (QCO1:0,8) 


S.CONS (9C0O2:2,8) 

S.CONS (0CO3:1,8) 

S.CONS (9CO4:4,8) 

S.CONS (9CO5:7,8) 

Software output 

1 i 
: zilog 2-80 based system t 
i ; 
1 i 
1 $ 
i 1 
i 1 
1 1 
. 280 : 
meg i 
org 32735 ;ram pointer is pointing to top of memory - stack ; 
@stak:defs 32 : Sb define stack area : 
org 16384 sbegin code after reserved interrupt area 3 
écold:ld sp, @stak+t3e 3m i 33b initialize stack point; 
di ila A 1b disable saskable interrupts; 
Jp @i0 3wa iœ Ab do hardware initializations 


; sets up 7303 card so that value at data port can be 
; read into argl by the primitive s. sensecond 


org 32734 

argi: defb 0 : 
org 15391 : 
ssets up /303 card so that the contents of light will be output : 
org 32733 : 
light: defb 0 : 
org 16391 : 
ld a, 0 s @ 7t eb write inhibit the alphanumeric displa; 
out (Odih),a 3 3a lit 2b send it to control port : 
out (0d0h),a ; æ iit 2b clear all leds ; 
org 32/32 :8 bit variable each] in ras ; 
eachi: defb 0 30m ot 1b : 
org 16397 : 
org 38731 38 bit variable each in ram : 
each: defb O0 um Ot 1b : 
org 16397 

sprocedure each! 


Seachi: nop sia At ib entry point for each! 
ld a,(8c01) ;4m Lat — 3b assign @c0! 


ld (eachi),a "Aw 13t 3b to each! 
in a, (OdOh) ; dm ilt 2b data port read for input 
ld b,a ; im 4t. ID save value in b for later 


and 11000000b on 7t 2b mask for both switches on 
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dem ` ec, 
KE ES vg e -0 U » U Di pen 


cp 11000000b ; em 7t eb check for both switches on 
Jp 2,$*27 >; æ 10t 3b if both on then jump dom 

ld à,b ; Im AE ib get original value again 

and 10000000b ; 2m 7t 2b mask for left switch on only 
cp 10000000b > @ 7t 2b check for left switch on only 
Jp 2, $+27 ; 3  10t 3b if left on then jump dow 

ld a,b ; im AE 1b get original value again 

and 01000000b : em JE b mask for right switch on only 
cp 01000000b ; om 7t 2b check for rt switch on only 
Jp 2, $te7 ; 3a 1% 3b if rt on then jump dom 

Id a, 1 ; em 7t. Pb both switches must be off 

Id (argi),a ; 408 13t 3b both off, argi = Oih 

Jp $+24 ; dm 1% 3b jump to end of routine 

ld a, 4 : em 7t 2b both switches must be on 

Id (argi),a ; 4m 13¢ 3b both on, arg! = 04h 

Jp $*16 s æ 10¢ 3b jump to end of routine 

ld a,3 ; em 7t eb left switch on only 

ld (argi),a ; 48 13t 3b left on, argi = O3h 

jp $*8 ; Ja 10t 3b jump to end of routine 

ld a,2 ; om 7t. 2b right switch on only 

ld (argi),a ; 4a 1036. 3b right on, arg! = Oech 

nop ; i A 1b end of input conversion routine 


ld a,(argi) 34a 13¢ — 3b if argi le arge then rslt=ffh 
ld b a jm At ib bargi 

ld a (@c02) ;4m — 13t Ab 

ld c, a (In át 1b c=arge 

and a sim A 1b set sign flag of arge 

Jp p,9*13 3u i% 3b jusp if arge is positive 

ld a, b JU: 1b arge = - 

and a ig A 1b set sign flag of arg! 

ld a c sim A ib restore arge to accusulator 
jp m, $17 (än iœ — 3b argi = - arge = - comp backwards 
ld a, 0 rs —— 7 2b argi = + arge = - false 


j $13 He: 12 b 
ld a, b ‘ln AE ib 
and a sin át 1b set sign flag of argi 


Id a, c sim A ib restore arge to accumulator 


Jp 5 $7 äu 100 3b  argi=+arg?=+ 

ld a,iiiililib;eom 7t eh argi = - arge = + true 

y #9 (A8 12t 2b 

cp b sin At 1b 

ld a, 11111111b;2ma JE 2b result false arg! )= arge 
JP D An 33m 10t 3b 

cpl in át ib result true argi lt arge 


ld (8&t01),a ;ám Lt ` Ab 

ld a, (8t01) ;4m 13t 3b branch to 801 if 8t01 is true 

cp 0 scm 7t 2b 

Jp 2, 801 ;3a 10t 3b 

ld a,(8c01) "Aw — 13t — 3b load argi in accumulator 
ld hl,8c03 "Au 10 3b point hl to arge 

sub (hl) ‘cm JE — 1b argi - arge 
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Jp po,$*13  ; 
Jpc ,938 i 
ld a,01111111b; 
Jp #5 ; 
ld a, 10000000b ; 
Id (BOU, a ; 

ld a,(8t01) ;4m 
Id (eachl),a "A 


801: nop 
ret | 
:procedure each 


@æach5: nop "lg 
ld a,(8c01) ;4m 
ld (eachd),a 34s 
in a, (Od0h) 

ld b,a 

and 11000000b 

cp 11000000b 

Jp 2, $te7 

ld a,b 

and 10000000b 

cp 10000000b 

JP 2, $#27 

ld a,b 

and 01000000b 

cp 01000000b 

Jp 2, $te7 

Id a, 1 

Id (argl),a ; 
jp $+24 

Id a,4 

ld (argi),a : 
Jp $*16 

ld a,3 

Id (argl),a i 
Jp $+8 

ld a, 

ld (argil) a ; 
nop 

ld àa,(argl) "Ae 
ld b a sim 
ld a, (@cO4) ;4m 
ld c a sie 
and a sia 
Jp p9*13 — 3a 
ld a, b sis 
and a sin 
ld a, c sis 
Jp m, $517  ;3a 
ld a, 0 CR 
jr $*13 A8 


ue E we Sr ae =z m d 


10t 3b if no overflow store result 

10t 3b if carry the maximize sinus rsit 

7t 2b put in largest positive value 

10t 3b 

7t 2b put in largest negative value 
4m 3b save result of add in rst 


13t 
13t 


10t 


4t 


et 
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"E 


p 


cn 


A8 
CN 


is 
Lët 
At 
13t 
At 
At 


3b assign 8t01 
3b to each! 
; define location 801 
1b return to monitor, exit each! 


lb entry point for each5 
3b assign Bol 
3b to eachs 

lit 2b data port read for input 

A 1b save value in b for later 

7t 2b  smask for both switches on 

7t 2b check for both switches on 
10t 3b if both on then jusp dom 

4t 1b get original value again 

7t eb mask for left switch on only 


7t eb check for left switch on only 
10t 3b if left on then jump dom 

4t 1b get original value again 

7t eb mask for right switch on only 
7t 2b check for rt switch on only 
10t 3b if rt on then jump dom 

7t 2b both switches must be off 


13t 3b both off, argi = Oih 


10t 3b jump to end of routine 
7t eb both switches aust be on 


13t 3b both on, argl = Osh 


10t 3b jump to end of routine 
7t 2b left switch on only 


Lët 3b left on, argi = 03h 


10t 3b jump to end of routine 
7t 2b right switch on only 


13t 3b right on, argl * Oech 


At 1b end of input conversion routine 
3b if arg! le arge then rslt=ffh 
1b bzargl 
3b 
1b C-arge 
lb set sign flag of arge 
3b Jump if arge is positive 
lb arge = - 
1b set sign flag of argi 
1b restore arg? to accumulator 
3b argil * - arg? - - comp backwards 
eb arg! = + arge = - false 
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ld a, b sle At 1b 

and a sim AE 1b set sig flag of arg! 

ld à c sin A 1b restore arge to accumulator 
JP Ph $7 "A i% 3b argi = + arge = + 

ld a,iiiiiilib; m 7t eb argi = - arg2 = + true 

ye #9 A8 Jet 2b 

cp b sim ^t 1b 

ld ay1111111ibsew = 7t 2b result false argi )= arge 
JP p» $4 ;m IO 3 

cpl sim 4t 1b result true argi 1t are 
Id (@t0i),a 34a Lët 3b 

Id a, (@¢01) 34a 13¢ 3b branch to @e if @t01 is true 

cp 0 som 7t 2b 

jp z, @2 "än IO 3b 

Id a, (@cOl) "Aw Lt ` Ap load argi in accumulator 

ld hl,8c03 rä — 10t — 3b point hl to arge 

sub (hl) E it 1b argi - arge 

jp po ,$13 — ;3w  10t 3b if no overflow store result 

jpe ,$+8 3 — 10t 3b if carry the maximize minus rsit 
ld a,OL111111bsem  — 7t 2b put in largest positive value 

jp $45 :às — 10t 3b 

Id a, 10000000b ;cm — 7t ?b put in largest negative value 

ld (8t01),a ;13t 4m 3b save result of add in rslt 

ld a,(8t01) ;4a. 13t — 3b assign 8t0] 


ld (each5),a ;4m 13t — 3b to Sach? 
802: nop : define location $0? 
ret sôn 10t. 10b return to sonitor,exit eachs 


sprocedure onlita 

8onlita: nop sim át ib entry point for onlita 
Id a, {@cO3) 34m Lët — 3b assign @&c03 

Id (light),a ;48 i3t — 3b to light 
803: nop sim 4t 1b top of while-do-1oop 


ld a,(light) 4m 13t 3b if argi le arge then rsit=ffh 


ld b, a sim 4t 1b bargi 

ld a,(8c05) ;4m 13t 3b 

ld c, a ug A 1b czarge 

and a sim 4t 1b set sign flag of arge 

JP p $ti sa IO ` Ab jump if arge is positive 

ld a, b sia = At ib arge = - 

and a sim AE 1b set sim flag of argi 

Id a c sin át 1b restore arge to accumulator 


jp m $17 ;3  10t 3b argi = - arge = - comp backwards 


ld a, 0 än ht D angi zt argo s - false 


jr $*13 $3.  1et eb 

ld a, b sim A 1b 

and a sim AE 1b set sign flag of arg! 

Id a c sia At 1b restore arg? to accumulator 


jp p, $7 ;3 i% 3b argi = + arge = + 

Id a, 1111111ibsc= = 7 2b argi = - arge = + true 
jr $9 a let eb 

cp b sim 4t 1b 
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Id a, 11111111bs2e 7t eb result false argl )= arge 

JP P, $94 äu 100 3b 

cpl ig A 1b result true arg] 1t arg? 

ld (8t01),a ;ám — 13t 3b 

ld a,(8t01) 348 13t — 3b get boolean value 

and à sis AE 1b check if true(ffh) or false(00h) 
JP 2,804433 än  10t 3d if false jump out of while-do loop 
Id a, (light) ;4& 13t 3b get contents of output variable 

out (0d0h),a sda iit 2b output to data port of 7303 card 

Id a, (light) ;13t 4m 3b store argl in accusulator 

Id hl,@c02  ;10t 3a 3b have hl point to arge byte 

add a, (hl) (It — en 1b add accumulator with arge 

jp po ,$t13 sam  10t 3b if no overflow store result 

Jpc ,$+8 som 10t Sb sof carry the maximize sinus rslt 

Id a,01111111b;2@ 7t 2b put in largest positive value 
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yp $*5 3m 10t 3b 210 
ld a,10000000b ;2m 7t 2b put in largest negative value ell 
ld (@t01),a ;13t An 3b save result of add in rslt ele 
ld a, (@t01) 34m Lë — 3b assign @t01 els 
Id (light),a 348 13t 3d to light ; 214 
; : ei9 
; wait 200 as (for z80a 4 mhz clock) ; el6 
: : e17 
ld b,S50 om 7t eb set value of outer loop counter ; 218 
ld de, -1 ;du 10t 3b value by which inner loop is decremntd; 219 
ld h1,800 som 10t 3b starting couter value for inner loop ; 280 
add hl,de sm (It ib decrement inner loop : eel 
nop sia At 1b dummy inst. to make inner loop =25t ; 222 
JP c,$-2 ssa 10t 3b jump to of inner loop until hl=0 ; 223 
djnz $-8 2 13t8 2b decrement outer loop counter until b»0; 224 
Bu: mp 203 ;3m 10t — 3b jump to top of while-do loop : C29 
ret A8 10t — 1b return to sonitor,exit onlita ; 226 
¿procedure offlt ; e27 
Bofflt: nop sim A 1b entry point for offlt ; 228 
Id a, (@cO1) wg Lat ` Ah assign @c01 ; e29 
Id (light),a ;4a Lët 3b to light ; 230 
Id a, (light) "Aw 13t 3b get contents of output variable EA 
out (0d0h),a :9 lit eb output to data port of 7303 card : e3e 
i ; e33 
: Wait 500 us (for 280a 4 mhz clock) ; 234 
; ; e35 
id b,100 sem 7t 2b set value of outer loop counter ; 236 
ld de, -1 Län 10t 3b value by which inner loop is decreuntd; 237 
ld h1,800 ;3m 10t 3b starting couter value for inner loop ; 238 
add hl,de 3u lit 1b decrement irmer loop | 239 
nop sim  át 1b dummy inst. to make inner loop =25t  ; 240 
Jp c,$-2 ;Ju 10t 3b jump to of inner loop until hl=0 ; 241 
djnz $-8 s3mc 13t8 2b decrement outer loop counter until bet: 242 
ret A8 Io 1b return to monitor,exit offlt ; 243 
BOL:  defb 0 reserve one byte for data ; 244 
@c02: defb 2 sreserve one byte for data ; 245 
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@c03:  defb 1 ;reserve ome byte for data 3 24% 
@c04: defb 4 sreserve one byte for data ; 247 
Bop: defb 7 sreserve one byte for data ; 248 
org 32730 zB bit variable @t01 in ram 3 249 
Stol: defb 0 "mm Of 1b ; 250 
org 16828 ET 
d =sonitor sect ione ; e» 
@spvsr:nop sim át 1b mark top of the polling loop | e33 
call $each| ;9& 17t 3b test for contingency each! ; 25 
ld a,(eachi) "Aw 13t 3b get contingency result ; 2 
cp 11111111b sim AE 1b check if result true ; 206 
Call z,@onlita ;3m 17t 3b if true execute task ; 27 
;if not true get next tabent or tabend to loop : e3B 
call Beach vw 17t 3b test for contingency each5 3 209 
Id a,(eachS) 348 13t — 3b get contingency result ; 260 
cp 11111111b ;im A 1b check if result true ; 261 
call z,@offlt ;Sm 17t 3b if true execute task ; 262 
sif not true get next tabent or tabend to loop : 263 
call Beach vm 17t 3b test for contingency eachS ; 264 
ld a,(each5) ;4m Lët 3b get contingency result ; 25 
cp 11111111b sim A 1b check if result true : C55 
call z,8offit :5m — 17t 3b if true execute task ; 267 
sif not true get next tabent or tabend to loop ; 268 
Jp &spvsr :go to the top of the polling loop of monitor table  ; 269 
; this space is deliberately void. this is a dummy primitive. ; 210 
; this space is deliberately void. this is a dumy primitive. 3 evi 
8i10:jp Sspvsr ;3w 10t 3b initialization of hardware is complete ; ele 
: start top of main monitor loop 3 273 
end send of software listing ready for assemb; 274 
Hardware list 

CAD80, Version 1.3f, Feb. 8, 1985 
put z-80 cpu board in slot 1 ; | 
memex high 2x e 
set jumpers in the following pattern SN 
jumper pattern ; A 
We 010 d 
"3 001 ; 6 
we 010 SA 
WS 1 "B 
Wi 001 ; 9 
wi 01 : 10 
wi 110 ; il 
w9 1111 | 1e 
wid 1 : 13 
wie 101010 ; 14 
wi3 10 = 
w14 10 ; 16 


wis 01 


note nuberiag is from left to right and from top to bottom. 


address space 0000-7fff 
connect powersupply to card cage 


put first prolog std 7303 keyboard/display card in slot 2 


connect the following jusper pins 
x6 
y4 
z0 
21 
disconnect the following jusper pins 
all others 
address space 11000000, 11000001 
put 16k memory board in slot 3 
set juspers in the following pattern 


Jumper pattern 
wi 11111111 
we 10 
ws 0 
e, 01 
iO l 


address range for card is 4000-7fff 
1 this realization consumes 
contains 0 chips. 


eb 


CAD80, Version 1.3£, Feb. 8 
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0.000 watts of power 


1985 


error! funmap detected no colon in primitive 


378.fixedwait (250) 


funmap forcing colon into primitive 


&.fixedwait (250?) 


error! funmap detected no colon in primitive 


44a.fixedwait (500) 


funmap forcing colon into primitive 


&.fixedwait (5003) 
1 this realization conaures 
and contains O chips. 


2 errors in cad80, result = 


O 


0.9000 watta of power 


APPENDIX G 


SUMMARY OF TRANSLATOR ERRORS 


This appendix contains a4 surmrary of Translator errors. 
These errors are discussed in detail in section III.C. and 
section IV.B. If the Translator undergoes maintenance in 
the future, manual editing of primitive lists can be 
eliminated during the course of developing controller 
realizations. 


1. Formaat errora relating to specific prinitives: 


&.fixedwait -- colon must be present after time value 
current: 

8.fixedwait (100) 
should be: 

s3.fixedwait (100;) 


s.forcons -- value for max loop count aust be moved 
from criteria section to argument section 
current: 
8.forcons (COUNT,0CO2,90C04,003,004:8,8,8,120) 
should be: 
s.forcons (COUNT,9CO2,0C04,003,004,120:8,8,8) 


&.whilestart and s.whilecon -- value for max loop count 
must be moved from s.whilecon to s.whilestart 
and correct precision placed in s.whilecon 

current: 
&.whilestart(903:) 
&.whilecon (@T01,@04:4) 
should be: 
S.whilestart(9QO3,4:) 
&.whilecon (@T01,604:8) 


&.&tboolwait and s.boolwait -- time period should be moved 
from s.boolwait to s.stboolwait 
current: 
&.29tboolwait(903:) 
&.boolwait  (QTO1,903,9004:8,1700) 
should be: 
s.stboolwait (@03,1700:) 
&.boolwait (@T01,903,@04: 8) 


s.waitleast -- many new arguments should be added and CSDL 
requires modification; time period must be 
moved from criteria section to argument 


section and precision for integer variable 
must be moved from argument section to 
criteria section 


current: 
&.waitleast (9TO1,8:500) 
&hould be: 
a.waitleast (9TO2,0TO1,405,4006,500,1500:8,8) 


1 2 3 4 9 6 


-- variable to be used for loop counter 
-- variable containing integer result 
-- top label 

bottom label 

-- time period 

-- max allowed time period 


Ou AWN ké 
I 
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Translator code should be modified to handle time units 
leaa than milliseconda since CSDL allowa time unita aa 
Small as nanoseconds. 


Consideration might be given to modify the Translator to 
handle fractional numbers vice just integers. 

Primitives in the Realization Volume would also require 
modification if this were implemented. 


The Translator’s decision point for specifying 16 bit 
constantas vice 8 bit constants should be between 127 and 
128, not the current 128 and 129. 


The Translator should be modified to always specify an 8 
bit precision for the boolean variable in a relational 
primitive, such es s.eq, regardless of the precisions 
specified for the other arguments. 


Variables specified as type DUPLEX must be usable in 
the CSDL statements, SENSE or ISSUE. Currently the 
Translator generates syntax errors if this is attempted. 


The primitive, s.not, can not be produced by the 
Tranalator even though it ia a valid primitive according 
to Carson, author of the Tranalator. 


If the CSDL statement for a «SIMPLE DO» is placed in the 
contingency list section of a CSDL problem, the 
Tranalator generates syntax errors. An example is 

“DO MANUAL 4’, which means the task MANUAL, is fourth in 
priority relative to other tasks listed in the 
contingency list section of a CSDL problen. 


10. 


Syntax error messages must be made easier to understand. 
An example is the message “expected symbol list 
follows", where the expected symbol list that follows is 
& meaningless string of letters and other characters. 


CSDL and the Translator should be modified to allow more 
than one expression between s.stboolwait and s.boolwait 
when a boolean weit construct is specified by a 
designer. This would make it possible for the 

condition being checked during a boolean wait, to 
change. 


10. 


11. 


12. 
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